[Haskell-cafe] Encoding the encoding type of a string into its type