diff options
Diffstat (limited to 'src/Parser.hs')
| -rw-r--r-- | src/Parser.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index 470c18f..aee282b 100644 --- a/src/Parser.hs +++ b/src/Parser.hs @@ -289,6 +289,12 @@ parseBlc = do e <- parseExpression pure $ Blc e +parseJot :: Parser Command +parseJot = do + _ <- string ":jot" <* sc <?> "jot binary string" + str <- some $ noneOf "\r\n" + pure $ Jot str + parseClearState :: Parser Command parseClearState = do _ <- string ":free" <?> "free instruction" @@ -356,5 +362,6 @@ parseReplLine = <|> (Commands . (: []) <$> try parseTime) <|> (Commands . (: []) <$> try parseLength) <|> (Commands . (: []) <$> try parseBlc) + <|> (Commands . (: []) <$> try parseJot) <|> (Commands . (: []) <$> try parseClearState) <|> try parseEvaluate |