From 735cf7b9399967cb41e7715204f4cd4b953bb839 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 18 May 2014 09:47:23 +0300
Subject: [PATCH] Default to no platform

---
 app/stackage.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/app/stackage.hs b/app/stackage.hs
index 7167a5b..783a904 100644
--- a/app/stackage.hs
+++ b/app/stackage.hs
@@ -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