Parse region for SQS

      parseRegion :: T.Text -> Maybe T.Text
      parseRegion name = case name of
        "us-east-1"      -> Just "sqs.us-east-1.amazonaws.com"
        "us-west-1"      -> Just "sqs.us-west-1.amazonaws.com"
        "us-west-2"      -> Just "sqs.us-west-2.amazonaws.com"
        "ap-northeast-1" -> Just "sqs.ap-northeast-1.amazonaws.com"
        "ap-southeast-1" -> Just "sqs.ap-southeast-1.amazonaws.com"
        "ap-southeast-2" -> Just "sqs.ap-southeast-2.amazonaws.com"
        "sa-east-1"      -> Just "sqs.sa-east-1.amazonaws.com"
        "eu-west-1"      -> Just "sqs.eu-west-1.amazonaws.com"
        "eu-central-1"   -> Just "sqs.eu-central-1.amazonaws.com"
        "cn-north-1.am"  -> Just "sqs.cn-north-1.amazonaws.com.cn"
        "us-gov-west-1"  -> Just "sqs.us-gov-west-1.amazonaws.com"
        "ap-northeast-2" -> Just "sqs.ap-northeast-2.amazonaws.com"
        "local"          -> Just "localhost"
        _                -> Nothing