Further library additions and REPL updates

2024-12-27 19:27:04 -06:00
parent c820eda816
commit 44e2169cdb
4 changed files with 21 additions and 14 deletions
--- a/src/Research.hs
+++ b/src/Research.hs
@ -78,7 +78,7 @@ ofNumber _ = Left "Invalid Tree Calculus number"
 ofString :: T -> Either String String
 ofString tc = case ofList tc of
  Right list -> traverse (fmap toEnum . ofNumber) list
-  Left err -> Left err
+  Left err -> Left "Invalid Tree Calculus string"

 ofList :: T -> Either String [T]
 ofList Leaf = Right []