Changeset 1592


Ignore:
Timestamp:
Aug 14, 2010, 12:25:53 AM (14 years ago)
Author:
andersk
Message:
static-cat: Ignore unparsable byte ranges.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/server/common/oursrc/scripts-static-cat/StaticCat.hs

    r1590 r1592  
    141141    case parseRange range size of
    142142      Just (a, b) | a <= b -> return $ Just (a, b)
    143       _ -> throw BadRange
     143      Just _ -> throw BadRange
     144      Nothing -> return Nothing
    144145
    145146outputAll :: Handle -> FileOffset -> CGI CGIResult
Note: See TracChangeset for help on using the changeset viewer.