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/Helper.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Helper.hs')

diff --git a/src/Helper.hs b/src/Helper.hs
index 6f17b15..a0a563a 100644
--- a/src/Helper.hs
+++ b/src/Helper.hs
@@ -136,7 +136,7 @@ instance Show Expression where
   show (MixfixChain ms) =
     "\ESC[33m(\ESC[0m" <> (intercalate " " $ map show ms) <> "\ESC[33m)\ESC[0m"
   show (Prefix p e) = show p <> " " <> show e
-data Command = Input String | Import String String | Test Expression Expression | ClearState | Time Expression
+data Command = Input String | Watch String | Import String String | Test Expression Expression | ClearState | Time Expression
   deriving (Show)
 data Instruction = Define Identifier Expression [Instruction] | Evaluate Expression | Comment | Commands [Command] | ContextualInstruction Instruction String
   deriving (Show)
-- 
cgit v1.2.3