From 58d27f4c20e18a85d88587f6eb9bb089452aa96d Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Tue, 25 Dec 2018 19:38:27 -0500
Subject: [PATCH] more intuitive search

---
 app/Main.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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