descriptive 0.3.0 → 0.3.1

raw patch · 2 files changed

+4/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

descriptive.cabal +1/−1
src/test/Main.hs +3/−3

descriptive.cabal view

@@ -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

src/test/Main.hs view

@@ -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")