@@ -288,12 +288,12 @@ lcharFC ch = do (FC file (l, c) _) <- getFC
288 return $ FC file (l, c) (l, c+1)
288 return $ FC file (l, c) (l, c+1)
290-- | Parses string as a token
290-- | Parses string as a token
291−symbol :: MonadicParsing m => String -> m String
291+symbol :: MonadicParsing m => String -> m ()
292−symbol = Tok.symbol
292+symbol = void . Tok.symbol
294symbolFC :: MonadicParsing m => String -> m FC
294symbolFC :: MonadicParsing m => String -> m FC
295symbolFC str = do (FC file (l, c) _) <- getFC
295symbolFC str = do (FC file (l, c) _) <- getFC
296− Tok.symbol str
296+ symbol str
297 return $ FC file (l, c) (l, c + length str)
297 return $ FC file (l, c) (l, c + length str)
299-- | Parses a reserved identifier
299-- | Parses a reserved identifier