otp-authenticator 0.1.2.0 → 0.1.2.1
raw patch · 3 files changed
+15/−5 lines, 3 files
Files
- CHANGELOG.md +9/−0
- otp-authenticator.cabal +1/−1
- src/Authenticator/Actions.hs +5/−4
CHANGELOG.md view
@@ -1,3 +1,12 @@+Version 0.1.2.1+================++*January 15, 2024*++<https://github.com/mstksg/uncertain/releases/tag/v0.1.2.1>++* Json output for view command incorrectly counted number of items.+ Version 0.1.2.0 ================
otp-authenticator.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: otp-authenticator-version: 0.1.2.0+version: 0.1.2.1 synopsis: OTP Authenticator (a la google) command line client description: Simple tool for keeping track of your one-time pad two-factor authentication keys; basically a command-line
src/Authenticator/Actions.hs view
@@ -118,15 +118,16 @@ then T.putStrLn . T.decodeUtf8 . BSL.toStrict . J.encodingToLazyByteString $ J.pairs- ( "total" J..= n+ ( "total" J..= (n - 1) <> "values" J..= res ) else do printf "Searched %d total entries.\n" (n - 1) forM_ res $ \ViewOut {..} ->- let described = voAccount <> case voIssuer of- Nothing -> ""- Just i -> " / " <> i+ let described =+ voAccount <> case voIssuer of+ Nothing -> ""+ Just i -> " / " <> i in case voMode of HOTP -> printf "(%d) %s: [ counter-based, use gen ]\n" voId described TOTP -> printf "(%d) %s%s\n" voId described $ case voValue of