From bc620adb5a07d791c67c42abd29d30e5c1a5c4d2 Mon Sep 17 00:00:00 2001
From: Einhard Leichtfuß <alguien@respiranto.de>
Date: Wed, 21 May 2025 12:40:11 +0200
Subject: Distinguish first-pass expression parser

---
 src/Language/SimpleShell/Parser/Function.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Language/SimpleShell/Parser/Function.hs')

diff --git a/src/Language/SimpleShell/Parser/Function.hs b/src/Language/SimpleShell/Parser/Function.hs
index 3565966..be3f424 100644
--- a/src/Language/SimpleShell/Parser/Function.hs
+++ b/src/Language/SimpleShell/Parser/Function.hs
@@ -16,7 +16,7 @@ import Language.SimpleShell.Parser.Common.Root (RootParser)
 import Language.SimpleShell.Parser.Expr
   ( runExprParser
   , strongTermP
-  , strongTermP_
+  , strongTermP0_
   )
 import Language.SimpleShell.Parser.Name (nameP, keyword)
 import Language.SimpleShell.Parser.SimpleType (simpleTypeP, forceType)
@@ -57,4 +57,4 @@ bodyP :: [Typed VarName] -> RootParser (Typed Expr)
 bodyP params = runExprParser params strongTermP
 
 bodyP_ :: RootParser ()
-bodyP_ = runExprParser [] strongTermP_
+bodyP_ = strongTermP0_
-- 
cgit v1.2.3