i did not realise my fs is case insensitive

2024-01-10 14:33:03 -07:00
parent ec4902b2d4
commit ab2cb59526
5 changed files with 2 additions and 2 deletions
--- a/src/Rlp/Parse/Decls.hs
+++ b/src/Rlp/Parse/Decls.hs
@@ -128,8 +128,8 @@ standaloneOf = (<* eof)

 partialExpr :: (OnFold) => Parser PartialExpr'
 partialExpr = choice
-    [ try application
-    , Fix <$> infixExpr
+    [ try $ Fix <$> infixExpr
+    , application
    ]
    <?> "expression"
    where
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
--- a/src/Rlp/Parse/Utils.hs
+++ b/src/Rlp/Parse/Utils.hs
--- a/src/Rlp/Syntax.hs
+++ b/src/Rlp/Syntax.hs
--- a/tst/Rlp/Parse/DeclsSpec.hs
+++ b/tst/Rlp/Parse/DeclsSpec.hs