= fpath `seq`
do file <- B.readFile fpath
case parse (allowEOF extMapP) file of
- (Success xs, _) -> return $ compile xs
- (_, input') -> let near = B.unpack $ B.take 100 input'
- in
- fail ("Failed to parse: " ++ fpath ++ " (near: " ++ near ++ ")")
+ (# Success xs, _ #)
+ -> return $ compile xs
+
+ (# _, input' #)
+ -> let near = B.unpack $ B.take 100 input'
+ in
+ fail ("Failed to parse: " ++ fpath ++ " (near: " ++ near ++ ")")
extMapP :: Parser [ (MIMEType, [String]) ]