fix warning on Windows
This commit is contained in:
parent
d342798b4f
commit
cdb091046d
@ -25,7 +25,9 @@ main = do
|
|||||||
"--dev":rest -> (True, rest)
|
"--dev":rest -> (True, rest)
|
||||||
_ -> (False, args')
|
_ -> (False, args')
|
||||||
let cmd = if isDev then "cabal-dev" else "cabal"
|
let cmd = if isDev then "cabal-dev" else "cabal"
|
||||||
|
#ifndef WINDOWS
|
||||||
let build rest = rawSystem cmd $ "build":rest
|
let build rest = rawSystem cmd $ "build":rest
|
||||||
|
#endif
|
||||||
case args of
|
case args of
|
||||||
["init"] -> scaffold
|
["init"] -> scaffold
|
||||||
#ifndef WINDOWS
|
#ifndef WINDOWS
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user