[LW-12086] Remove MacInstaller.hs

Author: michalrus

installers/Installer.hs

@@ -7,7 +7,6 @@ import qualified System.Info                      as Sys
 import           Turtle                              (export)
 import qualified System.IO as IO
 
-import qualified MacInstaller
 import qualified WindowsInstaller
 import           Data.Yaml                 (decodeFileThrow)
 
@@ -20,7 +19,6 @@ main = do
   IO.hSetEncoding IO.stdout IO.utf8
   let os = case Sys.os of
              "linux"   -> Linux64
-             "darwin"  -> Macos64
              "mingw32" -> Win64
              _         -> error ("Unsupported OS: " <> pack Sys.os)
 
@@ -43,5 +41,4 @@ genSignedInstaller os options'= do
     export "NETWORK" (clusterNetwork $ oCluster options')
     case os of
         Linux64 -> putStrLn ("Use default.nix, please." :: String)
-        Macos64 -> MacInstaller.main options'
         Win64   -> WindowsInstaller.main options'

installers/Spec.hs

@@ -19,45 +19,13 @@ import Data.Aeson (decode)
 
 import Config
 import Types
-import qualified MacInstaller as Mac
 import Util
 
 main :: IO ()
 main = hspec $ do
   describe "Utility functions" utilSpec
-  describe "MacInstaller build" macBuildSpec
   describe "recursive directory deletion" deleteSpec
 
-macBuildSpec :: Spec
-macBuildSpec = do
-  describe "The whole thing" $ do
-    it "Runs through the whole installer build" $ runManaged $ do
-      out <- getTempDir "test-build"
-      installersDir <- makeTestInstallersDir
-      daedalusBridge <- liftIO getDaedalusBridge
-
-      let opts = Options
-                 { oOS = Win64
-                 , oBackend = Cardano daedalusBridge
-                 , oBuildJob = Just (BuildJob "test")
-                 , oCluster = Testnet
-                 , oAppName = "Daedalus"
-                 , oOutputDir = out
-                 , oTestInstaller = testInstaller False
-                 , oSigningConfigPath = Nothing
-                 }
-
-      liftIO $ do
-        withDir installersDir $ do
-          mktree "../release/darwin-x64/Daedalus-darwin-x64/Daedalus.app/Contents/Resources/app"
-          mktree "../release/darwin-arm64/Daedalus-darwin-arm64/Daedalus.app/Contents/Resources/app"
-          writeFile "../release/darwin-x64/Daedalus-darwin-x64/Daedalus.app/Contents/Resources/app/package.json" "{}"
-          writeFile "../release/darwin-arm64/Daedalus-darwin-arm64/Daedalus.app/Contents/Resources/app/package.json" "{}"
-          Mac.main opts
-
-        -- there should be an installer file at the end
-        fold (ls out) Fold.length `shouldReturn` 1
-
 -- | Set up a temporary source/installers directory with everything
 -- required for the installer builder. This is so that the installer
 -- builder can be tested in a pure environment without any

installers/common/Config.hs

@@ -63,7 +63,6 @@ data Options = Options
   , oOS                    :: OS
   , oCluster               :: Cluster
   , oAppName               :: AppName
-  , oAppRootOverride       :: Maybe FilePath
   , oDontPkgbuild          :: Bool
   , oOutputDir             :: FilePath
   , oTestInstaller         :: TestInstaller
@@ -87,12 +86,11 @@ optionsParser detectedOS = Options
   <*> (optional      $
       (BuildJob     <$> optText "build-counter"     'v' "‘inputs.self.sourceInfo.revCount’"))
   <*> (fromMaybe detectedOS <$> (optional $
-                   optReadLower "os"                  's' "OS, defaults to host OS.  One of:  linux64 macos64 win64"))
+                   optReadLower "os"                  's' "OS, defaults to host OS.  One of:  linux64 win64"))
   <*> (fromMaybe Selfnode   <$> (optional $
                    optReadLower "cluster"             'c' "Cluster the resulting installer will target:  mainnet, staging, or testnet"))
   <*> (fromMaybe "daedalus" <$> (optional $
       (AppName      <$> optText "appname"             'n' "Application name:  daedalus or..")))
-  <*> (optional (optPath        "app-root-override"   'r' "If you built the Electron app outside of MacInstaller.hs"))
   <*> (switch                   "dont-pkgbuild"       'd' "Stop after preparing the package (content root), don’t create the final *.pkg file")
   <*>                   optPath "out-dir"             'o' "Installer output directory"
   <*> (testInstaller