flip parsing of cli opt with no sharing flag

Paczesiowa · Jun 1, 2012 · 72d2a88 · 72d2a88
1 parent f3960dd
commit 72d2a88
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Args.hs b/src/Args.hs
@@ -86,14 +86,14 @@ argParser = proc () -> do
               Nothing   -> System
               Just path -> Tarball path
   skipSanityCheckFlag <- getOpt skipSanityOpt -< ()
-  sharingFlag <- getOpt sharingOpt -< () --reversed value
+  noSharingFlag <- getOpt sharingOpt -< ()
   make <- getOpt makeOpt -< ()
   returnA -< Options{ verbosity       = verboseness
                    , skipSanityCheck = skipSanityCheckFlag
                    , hsEnvName       = name
                    , ghcSource       = ghc
                    , makeCmd         = make
-                   , noSharing       = not sharingFlag
+                   , noSharing       = noSharingFlag
                    }
     where liftIO' = liftIO . const