fix warning on Windows

2011-09-10 01:22:56 +02:00 · 2011-09-10 01:22:56 +02:00 · cdb091046d
commit cdb091046d
parent d342798b4f
1 changed files with 2 additions and 0 deletions
--- a/yesod/main.hs
+++ b/yesod/main.hs
@ -25,7 +25,9 @@ main = do
                "--dev":rest -> (True, rest)
                _ -> (False, args')
    let cmd = if isDev then "cabal-dev" else "cabal"
+#ifndef WINDOWS
    let build rest = rawSystem cmd $ "build":rest
+#endif
    case args of
        ["init"] -> scaffold
 #ifndef WINDOWS