Make the Cabal wrapper use a .bat file on Windows

hie-bios.cabal

@@ -14,6 +14,7 @@ Build-Type:             Simple
 Extra-Source-Files:     ChangeLog
                         wrappers/bazel
                         wrappers/cabal
+                        wrappers/cabal.bat
 
 Library
   Default-Language:     Haskell2010
@@ -37,6 +38,7 @@ Library
                       , directory
                       , filepath
                       , ghc
+                      , extra
                       , process
                       , transformers
                       , file-embed

src/HIE/Bios/Cradle.hs

@@ -15,6 +15,7 @@ import Control.Monad.Trans.Maybe
 import System.FilePath
 import Control.Monad
 import Control.Monad.IO.Class
+import System.Info.Extra
 import Control.Applicative ((<|>))
 import Data.FileEmbed
 import System.IO.Temp
@@ -126,9 +127,13 @@ cabalCradle wdir mc = do
 cabalWrapper :: String
 cabalWrapper = $(embedStringFile "wrappers/cabal")
 
+cabalWrapperBat :: String
+cabalWrapperBat = $(embedStringFile "wrappers/cabal.bat")
+
 cabalAction :: FilePath -> Maybe String -> FilePath -> IO (ExitCode, String, [String])
 cabalAction work_dir mc _fp = do
-  wrapper_fp <- writeSystemTempFile "wrapper" cabalWrapper
+  wrapper_fp <- writeSystemTempFile "wrapper.bat" $
+    if isWindows then cabalWrapperBat else cabalWrapper
   -- TODO: This isn't portable for windows
   setFileMode wrapper_fp accessModes
   check <- readFile wrapper_fp

wrappers/cabal.bat

@@ -0,0 +1,7 @@
+@ECHO OFF
+IF "%i" == "--interactive" (
+  ECHO %CD%
+  ECHO %*
+) ELSE (
+  ghc %*
+)