Private variables

1 files changed, 6 insertions, 5 deletions

diff --git a/src/Parser.hs b/src/Parser.hs
index de8cce0..f3fd03b 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -63,13 +63,13 @@ type' = do
   try typFn
     <|> typ <?> "type"
 
-arg :: Parser (String, Type, SourcePos)
+arg :: Parser (String, Type, Bool, SourcePos)
 arg = do
   pos <- getPosition
   i <- identifier
   _ <- colonSep <?> "\":\" before type"
   t <- type' <?> "type"
-  return $ (i, t, pos)
+  return $ (i, t, True, pos)
 
 fdef :: Ident -> Bool -> Bool -> SourcePos -> Parser Expr
 fdef ident priv anon pos = do
@@ -118,12 +118,13 @@ call = do
 
 var :: Parser Expr
 var = do
+  priv <- optionMaybe $ reserved "private"
   reserved "var"
-  (ident, typ, pos) <- arg
+  (ident, typ, _, pos) <- arg
   reservedOp "=" <?> "assignation"
   value <- expr
   reservedOp ";"
-  return $ Var ident typ value pos
+  return $ Var ident typ value (isJust priv) pos
 
 factor :: Parser Expr
 factor =
@@ -158,7 +159,7 @@ program = do
   m <- module'
   n <-
     many $ do
-      function
+      try function
         <|> var
         <|> statement <?> "statement"
   return $ [m] ++ n