@@ -6,7 +6,6 @@ import System.Directory
6import System.Exit
6import System.Exit
7import System.IO
7import System.IO
8import System.FilePath ((</>), addTrailingPathSeparator)
8import System.FilePath ((</>), addTrailingPathSeparator)
9−import System.Environment (lookupEnv)
11import Util.System
10import Util.System
@@ -103,7 +102,7 @@ toIBCFile (NS n ns) = foldl1 (</>) (reverse (toIBCFile n : ns))
104installIBC :: String -> Name -> IO ()
103installIBC :: String -> Name -> IO ()
105installIBC p m = do let f = toIBCFile m
104installIBC p m = do let f = toIBCFile m
106− target <- lookupEnv "TARGET"
105+ target <- environment "TARGET"
107 d <- maybe getDataDir return target
106 d <- maybe getDataDir return target
108 let destdir = d </> p </> getDest m
107 let destdir = d </> p </> getDest m
109 putStrLn $ "Installing " ++ f ++ " to " ++ destdir
108 putStrLn $ "Installing " ++ f ++ " to " ++ destdir