@@ -24,7 +24,7 @@ import Shelly
2424import System.Directory (withCurrentDirectory, getDirectoryContents)
2525import System.Environment
2626import System.Exit (ExitCode (..))
27−import System.Info
27+import qualified System.Info
2828import System.IO (Handle, hClose)
2929import System.IO.Temp
3030import System.Process (readProcessWithExitCode, CreateProcess(cwd), readCreateProcessWithExitCode, proc)
@@ -78,7 +78,7 @@ main = do
7878 obeliskImpl <- fromString <$> getEnv "OBELISK_IMPL"
7979 httpManager <- HTTP.newManager HTTP.defaultManagerSettings
8080 [p0, p1, p2, p3] <- liftIO $ getFreePorts 4
81− withSystemTempDirectory "initCache" $ \initCache -> do
81+ withSystemTempDirectory "init Cache λ" $ \initCache -> do
8282 -- Setup the ob init cache
8383 void . shellyOb verbosity $ chdir (fromString initCache) $ do
8484 run_ "ob" ["init"]
@@ -89,7 +89,7 @@ main = do
8989 inTmp :: (Shelly.FilePath -> Sh a) -> IO ()
9090 inTmp f = withTmp (chdir <*> f)
9191
92− withTmp f = shelly_ . withSystemTempDirectory "test" $ f . fromString
92+ withTmp f = shelly_ . withSystemTempDirectory "test λ" $ f . fromString
9393
9494 inTmpObInit f = inTmp $ \dir -> do
9595 run_ "cp" ["-a", fromString $ initCache <> "/.", toTextIgnore dir]
@@ -116,7 +116,7 @@ main = do
116116 it "works with default impl" $ inTmp $ \_ -> run "ob" ["init"]
117117 it "works with master branch impl" $ inTmp $ \_ -> run "ob" ["init", "--branch", "master"]
118118 it "works with symlink" $ inTmp $ \_ -> run "ob" ["init", "--symlink", obeliskImpl]
119− it "doesn't silently overwrite existing files" $ withSystemTempDirectory "ob-init" $ \dir -> do
119+ it "doesn't silently overwrite existing files" $ withSystemTempDirectory "ob-init λ" $ \dir -> do
120120 let p force = (proc "ob" $ "--no-handoff" : "init" : ["--force"|force]) { cwd = Just dir }
121121 (ExitSuccess, _, _) <- readCreateProcessWithExitCode (p False) ""
122122 (ExitFailure _, _, _) <- readCreateProcessWithExitCode (p False) ""
@@ -149,7 +149,7 @@ main = do
149149 it "can build ghc.backend" $ inTmpObInit $ \_ -> nixBuild ["-A", "ghc.backend"]
150150 it "can build ghcjs.frontend" $ inTmpObInit $ \_ -> nixBuild ["-A", "ghcjs.frontend"]
151151
152− if os == "darwin"
152+ if System.Info.os == "darwin"
153153 then it "can build ios" $ inTmpObInit $ \_ -> nixBuild ["-A", "ios.frontend"]
154154 else it "can build android after accepting license" $ inTmpObInit $ \dir -> do
155155 let defaultNixPath = dir </> ("default.nix" :: Shelly.FilePath)