From fd94a9d8a3e4fc86e5128715a2bc68187c872970 Mon Sep 17 00:00:00 2001
From: Einhard Leichtfuß <alguien@respiranto.de>
Date: Tue, 20 May 2025 19:40:53 +0200
Subject: Reduce name parsers to nameP

There is no good reason to have different syntax for variable and
function names, for example.
---
 src/Language/SimpleShell/Parser/Expr.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/Language/SimpleShell/Parser/Expr.hs b/src/Language/SimpleShell/Parser/Expr.hs
index 05120ce..1c782bc 100644
--- a/src/Language/SimpleShell/Parser/Expr.hs
+++ b/src/Language/SimpleShell/Parser/Expr.hs
@@ -17,7 +17,7 @@ import Language.SimpleShell.Parser
   , lookupVar
   , lookupFun
   )
-import Language.SimpleShell.Parser.Name (funNameP, varNameP, keyword)
+import Language.SimpleShell.Parser.Name (nameP, keyword)
 import Language.SimpleShell.Parser.SimpleType (forceType)
 import Control.Monad.Combinators.FailExpr
   ( Associativity(..)
@@ -70,13 +70,13 @@ literalP
 varP :: Parser TypedExpr
 varP = do
   _ <- char '$'
-  x <- varNameP
+  x <- nameP
   t <- lookupVar x
   return (t, Var x)
 
 funP :: Parser TypedExpr
 funP = do
-  fname <- funNameP
+  fname <- nameP
   (t', ts) <- lookupFun fname
   args <- mapM (strongTermP' "Type mismatch with function signature.") ts
   return (t', FunCall fname args)
-- 
cgit v1.2.3