diff options
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 |