From ce7652c6189b289ffbc749dc3d1ffb465c758c01 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 26 Jul 2024 12:22:07 +0200
Subject: Add types for name analysis

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

(limited to 'lib/Language/Elna/Parser.hs')

diff --git a/lib/Language/Elna/Parser.hs b/lib/Language/Elna/Parser.hs
index 109f1ba..23e09d9 100644
--- a/lib/Language/Elna/Parser.hs
+++ b/lib/Language/Elna/Parser.hs
@@ -80,7 +80,7 @@ typeExpressionP = arrayTypeExpression
     <|> NamedType <$> identifierP
     <?> "type expression"
   where
-    arrayTypeExpression = flip ArrayType
+    arrayTypeExpression = ArrayType
         <$> (symbol "array" *> bracketsP (lexeme Lexer.decimal))
         <*> (symbol "of" *> typeExpressionP)
 
-- 
cgit v1.2.3