diff --git a/app/Main.hs b/app/Main.hs index a49be24..885a620 100644 --- 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"