From 078734c1a310300c8121022103f1b4ca9bd1b5f2 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Thu, 23 Feb 2023 15:55:33 +0100
Subject: Added watch command

---
 src/Parser.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/Parser.hs')

diff --git a/src/Parser.hs b/src/Parser.hs
index b572f9a..b82a266 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -289,6 +289,12 @@ parseInput = do
   path <- importPath
   pure $ Input $ path ++ ".bruijn"
 
+parseWatch :: Parser Command
+parseWatch = do
+  _    <- string ":watch" <* sc <?> "watch instruction"
+  path <- importPath
+  pure $ Watch $ path ++ ".bruijn"
+
 parseTest :: Parser Command
 parseTest = do
   _  <- string ":test" <* sc <?> "test"
@@ -328,6 +334,7 @@ parseReplLine =
   try parseReplDefine -- TODO: This is kinda hacky
     <|> ((Commands . (: [])) <$> try parseTest)
     <|> ((Commands . (: [])) <$> try parseInput)
+    <|> ((Commands . (: [])) <$> try parseWatch)
     <|> ((Commands . (: [])) <$> try parseImport)
     <|> ((Commands . (: [])) <$> try parseTime)
     <|> ((Commands . (: [])) <$> try parseClearState)
-- 
cgit v1.2.3