diff options
author | Tom Smeding <tom.smeding@gmail.com> | 2019-03-19 20:34:19 +0100 |
---|---|---|
committer | Tom Smeding <tom.smeding@gmail.com> | 2019-03-19 20:34:19 +0100 |
commit | fd5fe01514c28c26b33a49fd0bc6d0b070767575 (patch) | |
tree | 985594f90314256e9877a68cf42c03b92d6b82d3 /src/Haskell/Env.hs | |
parent | 3bb58fdc2854aa52826fd1d5f8786c0151518672 (diff) |
Slightly better pretty printing
Diffstat (limited to 'src/Haskell/Env.hs')
-rw-r--r-- | src/Haskell/Env.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haskell/Env.hs b/src/Haskell/Env.hs index 6b74221..aca2367 100644 --- a/src/Haskell/Env.hs +++ b/src/Haskell/Env.hs @@ -1,9 +1,9 @@ module Haskell.Env where import Control.Monad -import Data.List import qualified Data.Map.Strict as Map import Haskell.AST +import Pretty data Env = Env { eDefs :: Map.Map Name Expr } @@ -11,7 +11,7 @@ data Env = Env { eDefs :: Map.Map Name Expr } instance Pretty Env where pretty (Env defs) = - intercalate "\n" [n ++ " = " ++ pretty e | (n, e) <- Map.assocs defs] + Node "" [Node (n ++ " =") [pretty e] | (n, e) <- Map.assocs defs] emptyEnv :: Env emptyEnv = Env Map.empty |