From 0622c0d61e797bc510b43707764c2852dba1eb3b Mon Sep 17 00:00:00 2001
From: Mohit Agarwal <mohit@sdf.org>
Date: Thu, 11 Aug 2016 22:17:48 +0530
Subject: [PATCH 1/2] Remove the `--os` flag.

Fixes #2227
---
 src/Stack/Config.hs       | 3 +--
 src/Stack/Options.hs      | 9 +--------
 src/Stack/Types/Config.hs | 6 ------
 3 files changed, 2 insertions(+), 16 deletions(-)

diff --git a/src/Stack/Config.hs b/src/Stack/Config.hs
index cef6d0a5d8..0a4af9cd79 100644
--- a/src/Stack/Config.hs
+++ b/src/Stack/Config.hs
@@ -244,8 +244,7 @@ configFromConfigMonoid configStackRoot configUserConfigPath mresolver mproject C
          (Platform defArch defOS) = buildPlatform
          arch = fromMaybe defArch
               $ (getFirst configMonoidArch) >>= Distribution.Text.simpleParse
-         os = fromMaybe defOS
-            $ (getFirst configMonoidOS) >>= Distribution.Text.simpleParse
+         os = defOS
          configPlatform = Platform arch os
 
          configRequireStackVersion = simplifyVersionRange (getIntersectingVersionRange configMonoidRequireStackVersion)
diff --git a/src/Stack/Options.hs b/src/Stack/Options.hs
index 759bd2cf34..62dfd7d55d 100644
--- a/src/Stack/Options.hs
+++ b/src/Stack/Options.hs
@@ -208,7 +208,7 @@ cleanOptsParser = CleanShallow <$> packages <|> doFullClean
 -- | Command-line arguments parser for configuration.
 configOptsParser :: GlobalOptsContext -> Parser ConfigMonoid
 configOptsParser hide0 =
-    (\stackRoot workDir buildOpts dockerOpts nixOpts systemGHC installGHC arch os ghcVariant jobs includes libs overrideGccPath skipGHCCheck skipMsys localBin modifyCodePage allowDifferentUser -> mempty
+    (\stackRoot workDir buildOpts dockerOpts nixOpts systemGHC installGHC arch ghcVariant jobs includes libs overrideGccPath skipGHCCheck skipMsys localBin modifyCodePage allowDifferentUser -> mempty
         { configMonoidStackRoot = stackRoot
         , configMonoidWorkDir = workDir
         , configMonoidBuildOpts = buildOpts
@@ -218,7 +218,6 @@ configOptsParser hide0 =
         , configMonoidInstallGHC = installGHC
         , configMonoidSkipGHCCheck = skipGHCCheck
         , configMonoidArch = arch
-        , configMonoidOS = os
         , configMonoidGHCVariant = ghcVariant
         , configMonoidJobs = jobs
         , configMonoidExtraIncludeDirs = includes
@@ -259,12 +258,6 @@ configOptsParser hide0 =
            <> help "System architecture, e.g. i386, x86_64"
            <> hide
             ))
-    <*> optionalFirst (strOption
-            ( long "os"
-           <> metavar "OS"
-           <> help "Operating system, e.g. linux, windows"
-           <> hide
-            ))
     <*> optionalFirst (ghcVariantParser (hide0 /= OuterGlobalOpts))
     <*> optionalFirst (option auto
             ( long "jobs"
diff --git a/src/Stack/Types/Config.hs b/src/Stack/Types/Config.hs
index 1e5e88dd15..2fa3556ac7 100644
--- a/src/Stack/Types/Config.hs
+++ b/src/Stack/Types/Config.hs
@@ -786,8 +786,6 @@ data ConfigMonoid =
     -- ^ See: 'configCompilerCheck'
     ,configMonoidRequireStackVersion :: !IntersectingVersionRange
     -- ^ See: 'configRequireStackVersion'
-    ,configMonoidOS                  :: !(First String)
-    -- ^ Used for overriding the platform
     ,configMonoidArch                :: !(First String)
     -- ^ Used for overriding the platform
     ,configMonoidGHCVariant          :: !(First GHCVariant)
@@ -867,7 +865,6 @@ parseConfigMonoidJSON obj = do
     configMonoidRequireStackVersion <- IntersectingVersionRange <$> unVersionRangeJSON <$>
                                        obj ..:? configMonoidRequireStackVersionName
                                            ..!= VersionRangeJSON anyVersion
-    configMonoidOS <- First <$> obj ..:? configMonoidOSName
     configMonoidArch <- First <$> obj ..:? configMonoidArchName
     configMonoidGHCVariant <- First <$> obj ..:? configMonoidGHCVariantName
     configMonoidJobs <- First <$> obj ..:? configMonoidJobsName
@@ -956,9 +953,6 @@ configMonoidSkipMsysName = "skip-msys"
 configMonoidRequireStackVersionName :: Text
 configMonoidRequireStackVersionName = "require-stack-version"
 
-configMonoidOSName :: Text
-configMonoidOSName = "os"
-
 configMonoidArchName :: Text
 configMonoidArchName = "arch"
 

From 4205e442ae549f2de2e6bd0d5de81b30e21729c3 Mon Sep 17 00:00:00 2001
From: Mohit Agarwal <mohit@sdf.org>
Date: Thu, 11 Aug 2016 22:50:23 +0530
Subject: [PATCH 2/2] Update ChangeLog for #2477

---
 ChangeLog.md | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ChangeLog.md b/ChangeLog.md
index 377ef7b10b..5b9ddb3f9b 100644
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -42,6 +42,8 @@ Bug fixes:
   [#2361](https://github.com/commercialhaskell/stack/issues/2361)
 * Fixes src directory pollution of `style.css` and `highlight.js` with GHC 8's
   haddock [#2429](https://github.com/commercialhaskell/stack/issues/2429)
+* Remove the `--os` flag
+  [#2227](https://github.com/commercialhaskell/stack/issues/2227)
 
 ## 1.1.2