From fe4ab13c57cfb5ec8e67022429500299c3db83bd Mon Sep 17 00:00:00 2001
From: Alex Pankoff <ccntrq@screenri.de>
Date: Mon, 8 Jan 2018 23:24:14 +0100
Subject: [PATCH] Parser: FIX add missing parentheses

---
 src/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Parser.hs b/src/Parser.hs
index eb5940a..faaf0d8 100644
--- 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