case parse (allowEOF extMapP) file of
(Success xs, _) -> return $ compile xs
(_, input') -> let near = B.unpack $ B.take 100 input'
case parse (allowEOF extMapP) file of
(Success xs, _) -> return $ compile xs
(_, input') -> let near = B.unpack $ B.take 100 input'