diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-09-21 22:49:21 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-09-21 22:49:21 +0200 |
| commit | c558b300a3353edf7c88a2c363cb6bc7b7c1dcb7 (patch) | |
| tree | f8a21828219592a2a23289be74c7faaa95f8e3d0 /src/Script/Expr | |
| parent | 442bc3df9692edde632e3a1d7217e861bf85fd81 (diff) | |
Diffstat (limited to 'src/Script/Expr')
| -rw-r--r-- | src/Script/Expr/Class.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Script/Expr/Class.hs b/src/Script/Expr/Class.hs index 20a92b4..005b6a8 100644 --- a/src/Script/Expr/Class.hs +++ b/src/Script/Expr/Class.hs @@ -39,6 +39,10 @@ data ExprListUnpacker a = forall e. ExprType e => ExprListUnpacker (a -> [e]) (P data ExprEnumerator a = ExprEnumerator (a -> a -> [a]) (a -> a -> a -> [a]) +instance ExprType () where + textExprType _ = "Unit" + textExprValue () = "()" + instance ExprType Integer where textExprType _ = T.pack "integer" textExprValue x = T.pack (show x) |