display blank line before displaying password
This commit is contained in:
1 parent
c5084c3cb0
commit
12049652c4
1 file changed
+1
@@ -135,6 +135,7 @@ quit = return ()
|
|||||||
|
|
||||||
showPass :: String -> S.StateT Status IO ()
|
showPass :: String -> S.StateT Status IO ()
|
||||||
showPass x = do
|
showPass x = do
|
||||||
|
lift $ putStrLn ""
|
||||||
db <- S.gets $ view database
|
db <- S.gets $ view database
|
||||||
case pwGetService x db of
|
case pwGetService x db of
|
||||||
Nothing -> lift $ putStrLn "service not found"
|
Nothing -> lift $ putStrLn "service not found"
|
||||||
|
|||||||
Reference in new issue
Block a user