@@ -6,7 +6,6 @@ import System.Directory
66import System.Exit
77import System.IO
88import System.FilePath ((</>), addTrailingPathSeparator)
9−import System.Environment (lookupEnv)
109
1110import Util.System
1211
@@ -103,7 +102,7 @@ toIBCFile (NS n ns) = foldl1 (</>) (reverse (toIBCFile n : ns))
103102
104103installIBC :: String -> Name -> IO ()
105104installIBC p m = do let f = toIBCFile m
106− target <- lookupEnv "TARGET"
105+ target <- environment "TARGET"
107106 d <- maybe getDataDir return target
108107 let destdir = d </> p </> getDest m
109108 putStrLn $ "Installing " ++ f ++ " to " ++ destdir