diff --git a/app/Main.hs b/app/Main.hs
index 853ac8a..bfd13fa 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -124,7 +124,12 @@ searchServ :: S.StateT Status IO ()
 searchServ = do
   svc <- req $ prompt "service name: " reqResp
   db  <- S.gets $ view database
-  selectServ $ pwSearch svc db
+  case pwSearch svc db of
+    []  -> do
+      lift $ putStrLn "\nservice not found"
+      mainMenu
+    [x] -> viewEdit x
+    xs  -> selectServ xs
 
 listServ :: S.StateT Status IO ()
 listServ = S.gets (view database) >>= selectServ . pwSearch ""