jlamothe/passman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

display blank line before displaying password

Browse Source
This commit is contained in:
Jonathan Lamothe
2018-12-24 12:56:03 -05:00
parent c5084c3cb0
commit 12049652c4
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
app/Main.hs
View File

@@ -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"