diff options
Diffstat (limited to 'src/Haskell/Parser.hs')
| -rw-r--r-- | src/Haskell/Parser.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haskell/Parser.hs b/src/Haskell/Parser.hs index bd10705..9ebf2af 100644 --- a/src/Haskell/Parser.hs +++ b/src/Haskell/Parser.hs @@ -36,6 +36,7 @@ pExpr = pLam <|> pCase <|> pApp where pSimpleExpr = choice [Num <$> pNum ,Ref <$> pVariable + ,Con <$> pNameT ,parens (pExpr `sepBy` symbolO ",") >>= \case [ex] -> return ex exs -> return $ Tup exs] @@ -82,7 +83,7 @@ pNum = (char '-' >> (negate <$> pPositive)) <|> pPositive where pPositive = read <$> many1 digit <* aheadW pVariable :: Parser Name -pVariable = pName <|> try (parens pOperator) +pVariable = pNameV <|> try (parens pOperator) pName :: Parser Name pName = notReserved $ liftM2 (:) (satisfy isAlpha) pNameRest |