add blank line before prompting for service name to search for

2023-05-04 14:21:55 -04:00
parent bb85081380
commit 8be90e9822
2 changed files with 5 additions and 1 deletions
--- a/app/UI.hs
+++ b/app/UI.hs
@@ -142,7 +142,7 @@ buildData = do

 searchServ :: S.StateT Status IO ()
 searchServ = do
-  svc <- req $ prompt "service name: " reqResp
+  svc <- req $ prompt "\nservice name: " reqResp
  db  <- S.gets $ view database
  case pwSearch svc db of
    []  -> do