hamlet-0.7.0: Old/Utf8.hs

module Old.Utf8
    ( charsToOctets
    , bsToChars
    , lbsToChars
    , renderDeref
    ) where

import Text.Shakespeare
import qualified Data.ByteString as S
import qualified Data.ByteString.Lazy.Char8 as L

import qualified Data.Text as T
import qualified Data.Text.Encoding as T

import qualified Data.Text.Lazy as LT
import qualified Data.Text.Lazy.Encoding as LT

charsToOctets :: String -> String
charsToOctets = L.unpack . LT.encodeUtf8 . LT.pack

bsToChars :: S.ByteString -> String
bsToChars = T.unpack . T.decodeUtf8

lbsToChars :: L.ByteString -> String
lbsToChars = LT.unpack . LT.decodeUtf8

renderDeref (DerefIdent (Ident s)) = s
renderDeref (DerefBranch x (DerefIdent (Ident y))) = concat [renderDeref x, " ", y]
renderDeref (DerefBranch x y) = concat [renderDeref x, " (", renderDeref y, ")"]