release 0.2.1.0

ghsable · May 8, 2023 · b039a05 · b039a05
1 parent 96f6c39
commit b039a05
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 3 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for pwdh
 
+## 0.2.1.0 -- 2023-05-08
+
+* Minor update.
+
 ## 0.2.0.0 -- 2022-05-25
 
 * Add Options.

diff --git a/pwdh.cabal b/pwdh.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               pwdh
-version:            0.3.0.0
+version:            0.2.1.0
 synopsis:           pwdh is pwd.
 
 -- A longer description of the package.

diff --git a/src/Lib.hs b/src/Lib.hs
@@ -20,7 +20,7 @@ getPutStr (len, opt)
                                    \    --version   output version information and exit\n\
                                    \\n\
                                    \If no option is specified, -P is assumed.\n"
-  | opt == "--version"    = return "pwdh 0.3.0.0 created by dativus"
+  | opt == "--version"    = return "pwdh 0.2.1.0 created by dativus"
   | otherwise             = return $ "pwdh: bad option: " ++ opt
 
 getOption :: [String] -> IO (Int, String)

diff --git a/test/Src/LibSpec.hs b/test/Src/LibSpec.hs
@@ -32,7 +32,7 @@ spec = do
       f `shouldBe` "Print the full filename of the current working directory.\n\n-P, --physical  avoid all symlinks\n\n    --help      display this help and exit\n\n    --version   output version information and exit\n\nIf no option is specified, -P is assumed.\n"
 
       g <- Lib.getPutStr (1, "--version")
-      g `shouldBe` "pwdh 0.3.0.0 created by dativus"
+      g `shouldBe` "pwdh 0.2.1.0 created by dativus"
 
       h <- Lib.getPutStr (1, "-Z")
       h `shouldBe` "pwdh: bad option: -Z"