From 8ad967fac0207b5c6a1c14b335de14e8e7563209 Mon Sep 17 00:00:00 2001 From: crumbtoo Date: Wed, 10 Jan 2024 14:33:03 -0700 Subject: [PATCH] i did not realise my fs is case insensitive --- src/{RLP => Rlp}/Parse/Decls.hs | 4 ++-- src/{RLP => Rlp}/Parse/Types.hs | 0 src/{RLP => Rlp}/Parse/Utils.hs | 0 src/{RLP => Rlp}/Syntax.hs | 0 tst/Rlp/Parse/DeclsSpec.hs | 0 5 files changed, 2 insertions(+), 2 deletions(-) rename src/{RLP => Rlp}/Parse/Decls.hs (99%) rename src/{RLP => Rlp}/Parse/Types.hs (100%) rename src/{RLP => Rlp}/Parse/Utils.hs (100%) rename src/{RLP => Rlp}/Syntax.hs (100%) create mode 100644 tst/Rlp/Parse/DeclsSpec.hs 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