From 5091729b4037dccba4050f8427159faa1af736a5 Mon Sep 17 00:00:00 2001
From: Tim Dysinger <tim@dysinger.net>
Date: Wed, 30 Mar 2016 18:24:08 -0700
Subject: [PATCH] options not args (& hindent johan-tibell 4 spaces)

---
 src/main/Main.hs | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/src/main/Main.hs b/src/main/Main.hs
index e951403122..1d09559d90 100644
--- 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"