dbConn :: PoolOrConn DB.Pipe
dbConn =
  let pConfig  = PoolCfg 1 10 20
      cBuilder = ConnBuilder { cb_createConn  = DB.connect $ DB.host "127.0.0.1"
                             , cb_destroyConn = DB.close
                             , cb_poolConfiguration = pConfig
                             }
  in PCConn cBuilder
dbConn :: PoolOrConn DB.Pipe
dbConn =
  let pConfig  = PoolCfg 1 10 20
      cBuilder = ConnBuilder { cb_createConn  = DB.connect $ DB.host "127.0.0.1"
                             , cb_destroyConn = DB.close
                             , cb_poolConfiguration = pConfig
                             }
  in PCConn cBuilder
dbConn =
  let pConfig  = PoolCfg 1 10 20
      cBuilder = ConnBuilder { cb_createConn  = DB.connect $ DB.host "127.0.0.1"
                             , cb_destroyConn = DB.close
                             , cb_poolConfiguration = pConfig
                             }
  in PCConn cBuilder