Update README and REPL formatting for list outputs

This commit is contained in:
2024-12-27 20:54:30 -06:00
committed by James Eversole
parent decf912be7
commit fe62e63c22
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 _ -> ""