Don't run git status on Windows

Author: snoyberg

etc/scripts/release.hs

@@ -194,17 +194,24 @@ rules global@Global{..} args = do
     releaseCheckDir </> binaryExeFileName %> \out -> do
         need [releaseBinDir </> binaryName </> stackExeFileName]
 
-        -- Run "git diff" so we can see what changes exist, in case things fail below
-        () <- cmd "git diff"
+        -- Symlinks in the repo cause a spurious git status change notification
+        -- on Windows, so we don't run this on Windows. Instead we rely on
+        -- Linux/Mac testing for that.
 
-        Stdout dirty <- cmd "git status --porcelain"
-        when (not gAllowDirty && not (null (trim dirty))) $
-            error $ concat
-              [ "Working tree is dirty.  Use --"
-              , allowDirtyOptName
-              , " option to continue anyway. Output:\n"
-              , show dirty
-              ]
+        case platformOS of
+          Windows -> pure ()
+          _ -> do
+            -- Run "git diff" so we can see what changes exist, in case things fail below
+            () <- cmd "git diff"
+
+            Stdout dirty <- cmd "git status --porcelain"
+            when (not gAllowDirty && not (null (trim dirty))) $
+                error $ concat
+                  [ "Working tree is dirty.  Use --"
+                  , allowDirtyOptName
+                  , " option to continue anyway. Output:\n"
+                  , show dirty
+                  ]
         () <- cmd
             [gProjectRoot </> releaseBinDir </> binaryName </> stackExeFileName]
             (stackArgs global)