Parser: FIX add missing parentheses

ccntrq · Jan 8, 2018 · fe4ab13 · fe4ab13
1 parent fad2fb8
commit fe4ab13
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Parser.hs b/src/Parser.hs
@@ -30,7 +30,7 @@ parseIt ts = runParser (initState ts) parse
 runParser :: ParserState -> Parser a -> Either ParserError a
 runParser st p =
     let (res, finalState) = runIdentity $ runStateT (runExceptT p) st
-    in if null $ errors finalState then res else Left $ ParserErrorCollection (reverse . errors finalState)
+    in if null $ errors finalState then res else Left $ ParserErrorCollection $ (reverse . errors) finalState
 
 
 initState :: [Token] -> ParserState