X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fext-core%2FLanguage%2FCore%2FEnv.hs;fp=utils%2Fext-core%2FEnv.hs;h=8ef9c69a04fd6e68d71bf42f0b3d66f2a16a6eb8;hp=642df00b7283754a2c32c81510f52af8261dc27a;hb=b84b5969798530dbf5be9b8bb795b77e5dfbf042;hpb=70f16d3fb8f21fbd198151d59c4ab29023dd9fda

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
--- 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)