Remove redundant parameter on CleanFull

sjakobi · sjakobi · commit 3d349490bfef · 2016-03-22T01:06:41.000+01:00
diff --git a/src/Stack/Clean.hs b/src/Stack/Clean.hs
@@ -35,7 +35,7 @@ clean
     -> m ()
 clean (CleanTargets targets) =
     cleanup targets False
-clean (CleanFull _ ) =
+clean CleanFull =
     cleanup [] True
 
 cleanup
@@ -63,12 +63,11 @@ cleanup targets doFullClean = do
         pkgs -> throwM (NonLocalPackages pkgs)
 
 -- | Options for cleaning a project.
-data CleanOpts = CleanTargets
-    { cleanOptsTargets :: [PackageName]
+data CleanOpts
+    = CleanTargets [PackageName]
     -- ^ Names of the packages to clean.
     -- If the list is empty, every local package should be cleaned.
-    }
-    | CleanFull { cleanOptsFull :: Bool }
+    | CleanFull
 
 -- | Exceptions during cleanup.
 newtype StackCleanException
diff --git a/src/Stack/Options.hs b/src/Stack/Options.hs
@@ -185,15 +185,16 @@ readFlag = do
 
 -- | Command-line parser for the clean command.
 cleanOptsParser :: Parser CleanOpts
-cleanOptsParser = CleanTargets <$> packages <|> CleanFull <$> doFullClean
+cleanOptsParser = CleanTargets <$> packages <|> doFullClean
   where
     packages =
         many
             (packageNameArgument
                  (metavar "PACKAGE" <>
                   help "If none specified, clean all local packages"))
     doFullClean =
-        switch
+        flag'
+            CleanFull
             (long "full" <>
              help "Remove whole the work dir, default is .stack-work")
 
