display blank line before displaying password

2018-12-24 12:56:03 -05:00
parent c5084c3cb0
commit 12049652c4
1 changed files with 1 additions and 0 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -135,6 +135,7 @@ quit = return ()

 showPass :: String -> S.StateT Status IO ()
 showPass x = do
+  lift $ putStrLn ""
  db <- S.gets $ view database
  case pwGetService x db of
    Nothing -> lift $ putStrLn "service not found"