@@ -19,7 +19,7 @@ import System.Exit (ExitCode (..))
1919import System.IO (Handle, hClose, hFlush, hGetContents,
2020 hPutStr, hSetEncoding, localeEncoding)
2121import System.Process
22−
22+import System.Info
2323
2424--------------------------------------------------------------------------------
2525import Hakyll.Core.Compiler
@@ -105,8 +105,12 @@ unixFilterIO :: Monoid o
105105 -> i
106106 -> IO (o, String, ExitCode)
107107unixFilterIO writer reader programName args input = do
108+ let pr = if os == "mingw32"
109+ then shell $ unwords (programName : args)
110+ else proc programName args
111+
108112 (Just inh, Just outh, Just errh, pid) <-
109− createProcess (proc programName args)
113+ createProcess pr
110114 { std_in = CreatePipe
111115 , std_out = CreatePipe
112116 , std_err = CreatePipe