Merge pull request commercialhaskell#1972 from commercialhaskell/1837…

…-build-a-subset-of-docker-images options not args (& hindent johan-tibell 4 spaces)
ljli · Mar 31, 2016 · f99c2de · f99c2de
2 parents 1c89cb5 + 5091729
commit f99c2de
Showing 1 changed file with 16 additions and 16 deletions.
diff --git a/src/main/Main.hs b/src/main/Main.hs
@@ -397,22 +397,22 @@ commandLineHandler progName isInterpreter = complicatedOptions
                         cfgSetCmd
                         configCmdSetParser)
         addSubCommands'
-          Image.imgCmdName
-          "Subcommands specific to imaging (EXPERIMENTAL)"
-          (addCommand'
-               Image.imgDockerCmdName
-               "Build a Docker image for the project"
-               imgDockerCmd
-               ((,) <$>
-                boolFlags
-                    True
-                    "build"
-                    "building the project before creating the container"
-                    idm <*>
-                many
-                    (textArgument
-                         (metavar "IMAGE" <>
-                          help "If none specified, build all defined container images"))))
+            Image.imgCmdName
+            "Subcommands specific to imaging (EXPERIMENTAL)"
+            (addCommand'
+                 Image.imgDockerCmdName
+                 "Build a Docker image for the project"
+                 imgDockerCmd
+                 ((,) <$>
+                  boolFlags
+                      True
+                      "build"
+                      "building the project before creating the container"
+                      idm <*>
+                  many
+                      (textOption
+                           (long "image" <>
+                            help "A specific container image name to build"))))
         addSubCommands'
           "hpc"
           "Subcommands specific to Haskell Program Coverage"