module PostgresqlConnectionString.Charsets where

import Data.CharSet
import Platform.Prelude hiding (fromList)

control :: CharSet
control :: CharSet
control = String -> CharSet
fromList String
":@?/=&,"

paramControl :: CharSet
paramControl :: CharSet
paramControl = String -> CharSet
fromList String
"&"

keyName :: CharSet
keyName :: CharSet
keyName =
  String -> CharSet
fromList
    ( [String] -> String
forall a. Monoid a => [a] -> a
mconcat
        [ [Char
'a' .. Char
'z'],
          [Char
'A' .. Char
'Z'],
          [Char
'0' .. Char
'9'],
          String
"_"
        ]
    )