yogsototh/stackage
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Default to no platform

Browse source
This commit is contained in:
Michael Snoyman 2014-05-18 09:47:23 +03:00
parent fdcc4c066e
commit 735cf7b939
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
app/stackage.hs
View file

@ -27,7 +27,7 @@ parseSelectArgs :: [String] -> IO SelectArgs
parseSelectArgs =
loop SelectArgs
{ excluded = []
, noPlatform = False
, noPlatform = True
, ignoreUpgradeable = False
, onlyPermissive = False
, allowed = []
@ -38,6 +38,7 @@ parseSelectArgs =
loop x [] = return x
loop x ("--exclude":y:rest) = loop x { excluded = y : excluded x } rest
loop x ("--no-platform":rest) = loop x { noPlatform = True } rest
loop x ("--platform":rest) = loop x { noPlatform = False } rest
loop x ("--ignore-upgradeable":rest) = loop x { ignoreUpgradeable = True } rest
loop x ("--only-permissive":rest) = loop x { onlyPermissive = True } rest
loop x ("--allow":y:rest) = loop x { allowed = y : allowed x } rest