module Language.Phonetic.Internal where import Data.ByteString (ByteString) import Data.Set (Set) newtype Code enc = Code {getCode :: ByteString} deriving (Eq, Show) newtype Alphabet enc = Alphabet {getAlphabet :: Set Char} deriving (Eq, Show)