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