@@ -45,6 +45,9 @@ data ObRunState
4545doubleQuotes :: (IsString a, Semigroup a) => a -> a
4646doubleQuotes s = "\"" <> s <> "\""
4747
48+routeFile :: IsString a => a
49+routeFile = "config/common/route"
50+
4851commit :: Text -> Sh ()
4952commit msg = void $ run "git"
5053 [ "commit"
@@ -149,16 +152,16 @@ main = do
149152 it "can build ghc.backend" $ inTmpObInit $ \_ -> nixBuild ["-A", "ghc.backend"]
150153 it "can build ghcjs.frontend" $ inTmpObInit $ \_ -> nixBuild ["-A", "ghcjs.frontend"]
151154
152− if os == "darwin"
153− then it "can build ios" $ inTmpObInit $ \_ -> nixBuild ["-A", "ios.frontend"]
154− else it "can build android after accepting license" $ inTmpObInit $ \dir -> do
155− let defaultNixPath = dir </> ("default.nix" :: Shelly.FilePath)
156− writefile defaultNixPath
157− =<< T.replace
158− "# config.android_sdk.accept_license = false;"
159− "config.android_sdk.accept_license = true;"
160− <$> readfile defaultNixPath
161− nixBuild ["-A", "android.frontend"]
155+ -- if os == "darwin"
156+ -- then it "can build ios" $ inTmpObInit $ \_ -> nixBuild ["-A", "ios.frontend"]
157+ -- else it "can build android after accepting license" $ inTmpObInit $ \dir -> do
158+ -- let defaultNixPath = dir </> ("default.nix" :: Shelly.FilePath)
159+ -- writefile defaultNixPath
160+ -- =<< T.replace
161+ -- "# config.android_sdk.accept_license = false;"
162+ -- "config.android_sdk.accept_license = true;"
163+ -- <$> readfile defaultNixPath
164+ -- nixBuild ["-A", "android.frontend"]
162165
163166 forM_ ["ghc", "ghcjs"] $ \compiler -> do
164167 let
@@ -236,7 +239,7 @@ main = do
236239testObRunInDir :: Socket.PortNumber -> Socket.PortNumber -> Maybe Shelly.FilePath -> HTTP.Manager -> Sh ()
237240testObRunInDir p0 p1 mdir httpManager = handle_sh (\case ExitSuccess -> pure (); e -> throw e) $ do
238241 let uri p = "http://localhost:" <> T.pack (show p) <> "/" -- trailing slash required for comparison
239− writefile "config/common/route" $ uri p0
242+ writefile routeFile $ uri p0
240243 maybe id chdir mdir $ runHandle "ob" ["run"] $ \stdout -> do
241244 firstUri <- handleObRunStdout httpManager stdout
242245 let newUri = uri p1
@@ -281,10 +284,10 @@ hGetLineSkipBlanks h = liftIO $ fix $ \loop -> T.hGetLine h >>= \case
281284-- | Alters the route file and waits for `ob run` to reload
282285alterRouteTo :: Text -> Handle -> Sh ()
283286alterRouteTo uri stdout = do
284− writefile "config/common/route" uri
287+ writefile routeFile uri
285288 hGetLineSkipBlanks stdout >>= \t -> when (t /= "Reloading...") $ errorExit $
286289 "Reloading failed: " <> T.pack (show t)
287− hGetLineSkipBlanks stdout >>= \t -> when (t /= " config/common/route") $ errorExit $
290+ hGetLineSkipBlanks stdout >>= \t -> when (t /= " " <> routeFile) $ errorExit $
288291 "Reloading failed: " <> T.pack (show t)
289292 hGetLineSkipBlanks stdout >>= \t -> when (t /= "Interrupted.") $ errorExit $
290293 "Reloading failed: " <> T.pack (show t)