diff options
| author | Marvin Borner | 2023-02-23 15:29:44 +0100 |
|---|---|---|
| committer | Marvin Borner | 2023-02-23 15:29:44 +0100 |
| commit | f452a6f311408ea78e5fce765766c98acca33188 (patch) | |
| tree | badb08607c84eff28149d5602d8f50643cc047e7 /src/Helper.hs | |
| parent | 99d8f364d6376886dd49a51ff4c3afe13337cfc4 (diff) | |
Added free command (doesn't really work though)
Diffstat (limited to 'src/Helper.hs')
| -rw-r--r-- | src/Helper.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Helper.hs b/src/Helper.hs index 97de641..6f17b15 100644 --- a/src/Helper.hs +++ b/src/Helper.hs @@ -136,9 +136,9 @@ 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 +data Command = Input String | Import String String | Test Expression Expression | ClearState | Time Expression deriving (Show) -data Instruction = Define Identifier Expression [Instruction] | Evaluate Expression | Time Expression | Comment | Commands [Command] | ContextualInstruction Instruction String +data Instruction = Define Identifier Expression [Instruction] | Evaluate Expression | Comment | Commands [Command] | ContextualInstruction Instruction String deriving (Show) data EvalConf = EvalConf |