@@ -288,12 +288,12 @@ lcharFC ch = do (FC file (l, c) _) <- getFC
288288 return $ FC file (l, c) (l, c+1)
289289
290290-- | Parses string as a token
291−symbol :: MonadicParsing m => String -> m String
292−symbol = Tok.symbol
291+symbol :: MonadicParsing m => String -> m ()
292+symbol = void . Tok.symbol
293293
294294symbolFC :: MonadicParsing m => String -> m FC
295295symbolFC str = do (FC file (l, c) _) <- getFC
296− Tok.symbol str
296+ symbol str
297297 return $ FC file (l, c) (l, c + length str)
298298
299299-- | Parses a reserved identifier