fixed cardinality of is statements

src/Parser/General.hs

@@ -57,6 +57,9 @@ allowedChars = letterChar <|> digitChar <|> char '_'
 -- |List of restricted names used by Rosetta
 restrictedNames :: [String]
 restrictedNames = [
+    "if",
+    "then",
+    "else",
     "displayName",
     "enum",
     "func",

src/Parser/Header.hs

@@ -0,0 +1,27 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Parser.Header where
+
+import Model.Header
+import Parser.General
+import Text.Megaparsec
+import Text.Megaparsec.Char
+import Text.ParserCombinators.ReadP (many1)
+
+headerParser :: Parser Header
+headerParser = do
+    _ <- lexeme $ string "namespace"
+    name <- namespaceParser
+    desc <- optional descriptionParser
+    _ <- lexeme $ string "version"
+    vers <- between (char '\"') (char '\"') (many (letterChar <|> char '.' <|> char '$' <|> digitChar))
+    imports <- many importParser
+    return $ MakeHeader name desc vers imports
+
+importParser :: Parser String
+importParser = do
+    _ <- lexeme $ string "import"
+    namespaceParser
+
+namespaceParser :: Parser String
+namespaceParser = many (letterChar <|> digitChar <|> char '.' <|> char '*')