From a4b8e1f1ee54ac6ff92adf1c0ed166f478c48258 Mon Sep 17 00:00:00 2001
From: Einhard Leichtfuß <alguien@respiranto.de>
Date: Tue, 20 May 2025 23:23:11 +0200
Subject: Add `=` token to function definition

---
 src/Language/SimpleShell/Parser/Function.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Language/SimpleShell/Parser/Function.hs b/src/Language/SimpleShell/Parser/Function.hs
index 26f5a5c..a0c5a9b 100644
--- a/src/Language/SimpleShell/Parser/Function.hs
+++ b/src/Language/SimpleShell/Parser/Function.hs
@@ -25,6 +25,7 @@ functionP = do
   t' <- simpleTypeP
   fname <- nameP
   params <- symbol "(" *> paramP `sepBy` symbol "," <* symbol ")"
+  symbol "="
   let (ts, vars) = unzip params
   body <- forceType t' (bodyP params) <|> fail "Function return type mismatch."
   return ((t', ts), Function fname vars body)
-- 
cgit v1.2.3