diff --git a/descriptive.cabal b/descriptive.cabal
--- a/descriptive.cabal
+++ b/descriptive.cabal
@@ -1,5 +1,5 @@
 name:                descriptive
-version:             0.3.0
+version:             0.3.1
 synopsis:            Self-describing consumers/parsers; forms, cmd-line args, JSON, etc.
 description:         Self-describing consumers/parsers. See the README.md for more information. It is currently EXPERIMENTAL.
 stability:           Experimental
diff --git a/src/test/Main.hs b/src/test/Main.hs
--- a/src/test/Main.hs
+++ b/src/test/Main.hs
@@ -140,16 +140,16 @@
              (Unit (Options.Arg "port" "Port to listen on")))
      it "succeeding options"
         (consume server ["start","any","--port","1234","--dev"] ==
-         Succeeded ("start","any",True,"1234"))
+         Succeeded ((),"any",True,"1234"))
      it "succeeding omitting port options"
         (consume server ["start","any","--port","1234"] ==
-         Succeeded ("start","any",False,"1234"))
+         Succeeded ((),"any",False,"1234"))
      it "failing options"
         (consume server ["start","any"] ==
          Failed (Unit (Options.Arg "port" "Port to listen on")))
   where server =
           ((,,,) <$>
-           Options.constant "start" "cmd" <*>
+           Options.constant "start" "cmd" () <*>
            Options.anyString "SERVER_NAME" <*>
            Options.switch "dev" "Enable dev mode?" <*>
            Options.arg "port" "Port to listen on")