Update README and REPL formatting for list outputs

This commit is contained in:
James Eversole
2024-12-27 20:54:30 -06:00
parent d804a114bb
commit 14b95f90b5
2 changed files with 15 additions and 13 deletions

View File

@ -6,6 +6,7 @@ import Parser
import Research
import Control.Monad (void)
import Data.List (intercalate)
import qualified Data.Map as Map
import System.Console.Haskeline
import System.IO (hFlush, stdout)
@ -38,5 +39,5 @@ decodeResult tc = case ofNumber tc of
Left _ -> case ofString tc of
Right str -> "\"" ++ str ++ "\""
Left _ -> case ofList tc of
Right list -> "[" ++ unlines (map decodeResult list) ++ "]"
Right list -> "[" ++ intercalate ", " (map decodeResult list) ++ "]"
Left _ -> ""