nsertEvent :: DBInfo -> GUIEvent -> IO DBInfo
insertEvent dbi g@(NewMachine mid)        = insertMachine dbi mid

insertEvent :: DBInfo -> GUIEvent -> IO DBInfo
insertEvent dbi g@(NewMachine mid)        = insertMachine dbi mid
insertEvent dbi g@(NewMachine mid)        = insertMachine dbi mid