module ADB_UserInterface ( Command(..), mainDialog, -- IO Command -- show options of main menu, -- read coomand from user readSearchStr, -- IO String -- read search string from user displayMatches, -- [Address] -> IO () -- display enumerated list of all -- matches from search or delete use case readAddressDialogue, -- IO (Address) -- read address from user readChoice -- Int -> IO Int -- given the no of matches, read delete -- choice from user ) where import AddressDB data Command = AddEntry | Search | Delete | Quit