Ignore unparsable byte ranges.

[scripts-static-cat.git] / StaticCat.hs

diff --git a/StaticCat.hs b/StaticCat.hs
index df4a6e271395f695629ad515dcfcdb0290413334..ba9e0b76137e3db0c1da5d6560e89a842ce13b0d 100644 (file)
--- a/StaticCat.hs
+++ b/StaticCat.hs
@@ -140,7 +140,8 @@ checkRange mTime size = do
   (checkIfRange mTime >>=) $ maybe (return Nothing) $ \() -> do
     case parseRange range size of
       Just (a, b) | a <= b -> return $ Just (a, b)
-      _ -> throw BadRange
+      Just _ -> throw BadRange
+      Nothing -> return Nothing
 
 outputAll :: Handle -> FileOffset -> CGI CGIResult
 outputAll h size = do