X-Git-Url: http://andersk.mit.edu/gitweb/scripts-static-cat.git/blobdiff_plain/88f471e39e08094de760be4cf532ff4bd0a4881a..9b3cd5c2d8c20aa23725e791d828e07627ce062a:/StaticCat.hs

diff --git a/StaticCat.hs b/StaticCat.hs
index df4a6e2..ba9e0b7 100644
--- 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