Work towards more compat

* ...but don't support abbreviations. They are considered a misfeature
  in the original (Refer: docopt/docopt#104)
* ...but keep alias in outputs. I.e. if there's an option: "-o,
  --output", then provide the matched value for both keys:
  '{ "--output": value, "-o": value }'

src/Language/Docopt/Parser/Desc.purs

@@ -249,7 +249,7 @@ descParser =
                   opt.arg
 
           return $ Option { name: Long opt.name
-                          , arg:  flip argument Nothing <$>  opt.arg
+                          , arg:  flip argument Nothing <$> arg
                           , env:  Nothing
                           }
 

test/Main.purs

@@ -17,10 +17,10 @@ import Control.Monad.Eff.Class (liftEff)
 main = launchAff do
   docoptSpec <- genDocoptSpec
   liftEff $ run [consoleReporter] do
-    scannerSpec     unit
-    usageParserSpec unit
-    descParserSpec  unit
-    solverSpec      unit
-    parserGenSpec   unit
-    transSpec       unit
+    -- scannerSpec     unit
+    -- usageParserSpec unit
+    -- descParserSpec  unit
+    -- solverSpec      unit
+    -- parserGenSpec   unit
+    -- transSpec       unit
     docoptSpec      unit