diff options
| author | Andrew Cady <d@jerkface.net> | 2020-05-06 11:48:02 -0400 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2020-05-06 11:48:02 -0400 |
| commit | 6699e70f9197ea901b9f8ad5ac0818682e335cff (patch) | |
| tree | 94f8790679c98b43fd1d47f33ea25f0d5a22569a | |
| parent | bcf603a5ebdfc5925ccfd928cbea5c4266f7efaf (diff) | |
fix warning
| -rw-r--r-- | lib/Kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs index 870bbba..39fbd15 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs | |||
| @@ -321,7 +321,7 @@ importAndRefresh root cmn cipher = do | |||
| 321 | , opHome=homespec | 321 | , opHome=homespec |
| 322 | , opTransforms = [] | 322 | , opTransforms = [] |
| 323 | } | 323 | } |
| 324 | when (not bUnprivileged) $ do | 324 | when bUnprivileged $ do |
| 325 | hPutStrLn stderr "Insufficient privilege generating system service keys." | 325 | hPutStrLn stderr "Insufficient privilege generating system service keys." |
| 326 | -- Run the all-in-one operation that generates or imports all subkeys. | 326 | -- Run the all-in-one operation that generates or imports all subkeys. |
| 327 | KikiResult rt report <- runKeyRing (if bUnprivileged then nop else op) | 327 | KikiResult rt report <- runKeyRing (if bUnprivileged then nop else op) |