diff options
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index 676bf37..92c33df 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -265,12 +265,18 @@ parseComment = do _ <- some $ noneOf "\r\n" return () +parseTime :: Parser Instruction +parseTime = do + _ <- string ":time" <* sc <?> "time instruction" + e <- parseExpression + pure $ Time e + parseImport :: Parser Command parseImport = do _ <- string ":import" <* sc <?> "import instruction" path <- importPath ns <- (try $ sc *> (namespace <|> string ".")) <|> (eof >> return "") - pure (Import (path ++ ".bruijn") ns) + pure $ Import (path ++ ".bruijn") ns parseInput :: Parser Command parseInput = do @@ -318,4 +324,5 @@ parseReplLine = <|> ((Commands . (: [])) <$> (try parseTest)) <|> ((Commands . (: [])) <$> (try parseInput)) <|> ((Commands . (: [])) <$> (try parseImport)) + <|> try parseTime <|> try parseEvaluate |