module Main where
import AddressDB
import ADB_UserInterface
doInsert:: AddressBook -> IO ()
doInsert db =
do
adr <- readAddressDialogue
mainLoop (insertAddress db adr)
doSearch:: AddressBook -> IO ()
doSearch db = error "doSearch: not yet implemented!"
doDelete:: AddressBook -> IO ()
doDelete db = error "doDelete: not yet implemented!"
mainLoop:: AddressBook -> IO ()
mainLoop db =
do
cmd <- mainDialog
case cmd of
AddEntry -> doInsert db
Search -> doSearch db
Delete -> doDelete db
Quit -> return ()
startDB:: IO ()
startDB = mainLoop newAddressBook
main:: IO ()
main = startDB