2024-02-13 13:22:23 -07:00
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