projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cabalize ext-core tools
[ghc-hetmet.git]
/
utils
/
ext-core
/
Language
/
Core
/
Env.hs
diff --git
a/utils/ext-core/Env.hs
b/utils/ext-core/Language/Core/Env.hs
similarity index 91%
rename from
utils/ext-core/Env.hs
rename to
utils/ext-core/Language/Core/Env.hs
index
642df00
..
8ef9c69
100644
(file)
--- a/
utils/ext-core/Env.hs
+++ b/
utils/ext-core/Language/Core/Env.hs
@@
-3,7
+3,7
@@
Sadly it doesn't seem to matter much. --tjc
-}
Sadly it doesn't seem to matter much. --tjc
-}
-module Env (Env,
+module Language.Core.Env (Env,
eempty,
elookup,
eextend,
eempty,
elookup,
eextend,
@@
-15,7
+15,6
@@
module Env (Env,
where
import qualified Data.Map as M
where
import qualified Data.Map as M
-import Data.List
data Env a b = Env (M.Map a b)
deriving Show
data Env a b = Env (M.Map a b)
deriving Show
@@
-45,5
+44,5
@@
eremove :: (Eq a, Ord a) => Env a b -> a -> Env a b
eremove (Env l) k = Env (M.delete k l)
efilter :: Ord a => Env a b -> (a -> Bool) -> Env a b
eremove (Env l) k = Env (M.delete k l)
efilter :: Ord a => Env a b -> (a -> Bool) -> Env a b
-efilter (Env l) p = Env (M.filterWithKey (\ k a -> p k) l)
+efilter (Env l) p = Env (M.filterWithKey (\ k _ -> p k) l)