diff options
| author | Jan Tuomi <jan.tuomi@valuemotive.com> | 2022-09-24 12:40:45 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | e6950bb8c053e0d6108ca0784b986254257f5f2f (patch) | |
| tree | d8ae7ea95d676f466bdba45fcf2de7809fa335ce /src/Types.hs | |
| parent | 412082729551dffdcbce7e28f6209d1cd809155f (diff) | |
Implement function def for 1 param functions
Diffstat (limited to 'src/Types.hs')
| -rw-r--r-- | src/Types.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Types.hs b/src/Types.hs index 4ade835..2c29e15 100644 --- a/src/Types.hs +++ b/src/Types.hs @@ -36,7 +36,7 @@ instance (Show AST) where show (ASTVector v) = "[" ++ L.intercalate " " (map show v) ++ "]" show (ASTFunctionCall v) = "(" ++ L.intercalate " " (map show v) ++ ")" show (ASTHashMap m) = - let flattenMap = M.assocs .> map (\(k, v) -> [k, v]) .> concat + let flattenMap = M.assocs .> L.concatMap (\(k, v) -> [k, v]) in "{" ++ L.intercalate " " (map show $ flattenMap m) ++ "}" show (ASTFunction _) = "<fn>" |