All tests passing except hlint warning about duplicated code blocks

2014-09-10 21:20:56 -07:00
parent dd9d9cb283
commit d3ae4aca2b
2 changed files with 25 additions and 7 deletions
@@ -39,6 +39,9 @@ parseRange range = do
 requestedRange :: RequestHeaders -> Maybe NonnegRange
 requestedRange hdrs = parseRange =<< BS.unpack <$> lookup hRange hdrs

+requestedContentRange :: RequestHeaders -> Maybe NonnegRange
+requestedContentRange hdrs = parseRange =<< BS.unpack <$> lookup "Content-Range" hdrs
+
 limit :: NonnegRange -> Maybe Int
 limit range =
  case [rangeLower range, rangeUpper range]