connectInfo :: ConnectInfo
connectInfo = ConnectInfo {
                       connectHost = "localhost"
                     , connectPort = 5432
                     , connectUser = "toaster"
                     , connectPassword = "password"
                     , connectDatabase = "toasterdb"
                     }
connectInfo :: ConnectInfo
connectInfo = ConnectInfo {
                       connectHost = "localhost"
                     , connectPort = 5432
                     , connectUser = "toaster"
                     , connectPassword = "password"
                     , connectDatabase = "toasterdb"
                     }
connectInfo = ConnectInfo {
                       connectHost = "localhost"
                     , connectPort = 5432
                     , connectUser = "toaster"
                     , connectPassword = "password"
                     , connectDatabase = "toasterdb"
                     }