rachel/gecco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

no more than once

Browse Source
This commit is contained in:
Rachel Lambda Samuelsson 2024-06-10 21:41:49 +02:00
parent 9f8624d2c7
commit 58e3c8e237
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Parse.hs
View File

@ -9,6 +9,7 @@ import Control.Monad.Combinators.Expr
import Data.Text (Text, unpack) import Data.Text (Text, unpack)
import Data.Char (isLetter, isSpace) import Data.Char (isLetter, isSpace)
import Data.List (elemIndex) import Data.List (elemIndex)
import Data.Maybe (maybeToList)
import Control.Applicative ((<|>)) import Control.Applicative ((<|>))
import Control.Monad (guard) import Control.Monad (guard)
@ -69,7 +70,7 @@ parseSyn ctx = ns (makeExprParser (parseInnerSyn ctx) opTable)
parseInnerSyn :: Ctx -> Parser Syn parseInnerSyn :: Ctx -> Parser Syn
parseInnerSyn ctx = do parseInnerSyn ctx = do
l <- many (ns goL) l <- many (ns goL)
r <- many (ns goR) r <- maybeToList <$> optional (ns goR)
let lr = l ++ r let lr = l ++ r
guard (not (null lr)) guard (not (null lr))
pure (foldl1 App lr) pure (foldl1 App lr)