Signed-off-by: Anders Kaseorg <andersk@mit.edu>
(checkIfRange mTime >>=) $ maybe (return Nothing) $ \() -> do
case parseRange range size of
Just (a, b) | a <= b -> return $ Just (a, b)
(checkIfRange mTime >>=) $ maybe (return Nothing) $ \() -> do
case parseRange range size of
Just (a, b) | a <= b -> return $ Just (a, b)
+ Just _ -> throw BadRange
+ Nothing -> return Nothing
outputAll :: Handle -> FileOffset -> CGI CGIResult
outputAll h size = do
outputAll :: Handle -> FileOffset -> CGI CGIResult
outputAll h size = do