diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-03-27 20:54:49 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-03-27 20:54:49 +0000 |
| commit | fd518ed2a3fe50238e0e9e7947e33cc9d5de9bce (patch) | |
| tree | 384d4e0a74cd0019dbf20394f2eeb9b83b24b1cc /devel/compiler/PrEnv.hs | |
| parent | 7c30d211c3eda504668c0eab51e99d6e52db2127 (diff) | |
primitive pattern matching
Diffstat (limited to 'devel/compiler/PrEnv.hs')
| -rw-r--r-- | devel/compiler/PrEnv.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/devel/compiler/PrEnv.hs b/devel/compiler/PrEnv.hs index d669e131d..910626a42 100644 --- a/devel/compiler/PrEnv.hs +++ b/devel/compiler/PrEnv.hs @@ -12,9 +12,6 @@ import qualified Data.Map as M prEnv :: Env -> IO () prEnv env = do - putStrLn "--# values" - mapM_ putStrLn - [prs c ++ " = " ++ prt val | (c,val) <- M.toList $ values env] putStrLn "--# types" mapM_ putStrLn [prs c ++ " : " ++ prs val | (c,val) <- M.toList $ types env] @@ -27,6 +24,10 @@ prEnv env = do putStrLn "--# parvals" mapM_ putStrLn [prs c ++ " = " ++ prt val | (c,val) <- M.toList $ parvals env] + putStrLn "--# values" + mapM_ putStrLn + [prs c ++ " = " ++ prt val | (c,val) <- M.toList $ values env] + prs :: (S.Print a) => a -> String prs = S.printTree |