@@ -42,9 +42,7 @@ conditionalRequest finfo hs0 rspidx reqidx = case condition of
4242 nobody@(WithoutBody _) -> nobody
4343 WithBody s _ off len -> let !hs1 = addContentHeaders hs0 off len size
4444 !hasLM = isJust $ rspidx ! fromEnum ResLastModified
45− !hs
46− | hasLM = hs1
47− | otherwise = (H.hLastModified,date) : hs1
45+ !hs = [ (H.hLastModified,date) | not hasLM ] ++ hs1
4846 in WithBody s hs off len
4947 where
5048 !mtime = I.fileInfoTime finfo