getDefaultConnectionString :: Environment -> DB.ConnectionString
getDefaultConnectionString e =
  let n = case e of
        Development -> "startapp_development"
        Production -> "startapp_production"
        Test -> "startapp_test"
  in  createConnectionString
        [ ("host", "localhost")
        , ("port", "5432")
        , ("user", "folsen")
        , ("dbname", n)
        ]
getDefaultConnectionString :: Environment -> DB.ConnectionString
getDefaultConnectionString e =
  let n = case e of
        Development -> "startapp_development"
        Production -> "startapp_production"
        Test -> "startapp_test"
  in  createConnectionString
        [ ("host", "localhost")
        , ("port", "5432")
        , ("user", "folsen")
        , ("dbname", n)
        ]
getDefaultConnectionString e =
  let n = case e of
        Development -> "startapp_development"
        Production -> "startapp_production"
        Test -> "startapp_test"
  in  createConnectionString
        [ ("host", "localhost")
        , ("port", "5432")
        , ("user", "folsen")
        , ("dbname", n)
        ]