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
 -}
 
-module Env (Env,
+module Language.Core.Env (Env,
            eempty,
            elookup,
            eextend,
@@ -15,7 +15,6 @@ module Env (Env,
 where
 
 import qualified Data.Map as M
-import Data.List
 
 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
-efilter (Env l) p = Env (M.filterWithKey (\ k a -> p k) l)
+efilter (Env l) p = Env (M.filterWithKey (\ k _ -> p k) l)