diff --git a/src/RLP/Parse/Decls.hs b/src/Rlp/Parse/Decls.hs similarity index 99% rename from src/RLP/Parse/Decls.hs rename to src/Rlp/Parse/Decls.hs index 5199b92..d8af6ca 100644 --- 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 diff --git a/src/RLP/Parse/Types.hs b/src/Rlp/Parse/Types.hs similarity index 100% rename from src/RLP/Parse/Types.hs rename to src/Rlp/Parse/Types.hs diff --git a/src/RLP/Parse/Utils.hs b/src/Rlp/Parse/Utils.hs similarity index 100% rename from src/RLP/Parse/Utils.hs rename to src/Rlp/Parse/Utils.hs diff --git a/src/RLP/Syntax.hs b/src/Rlp/Syntax.hs similarity index 100% rename from src/RLP/Syntax.hs rename to src/Rlp/Syntax.hs diff --git a/tst/Rlp/Parse/DeclsSpec.hs b/tst/Rlp/Parse/DeclsSpec.hs new file mode 100644 index 0000000..e69de29