module CharQq
(
ord,
ords,
chr,
)
where
import CharQq.Prelude hiding (ord, chr)
import qualified CharQq.Q as Q
ord :: QuasiQuoter
ord = QuasiQuoter exp pat typ dec where
exp = Q.stringCodepointExp
pat = Q.stringCodepointPat
typ = const (fail "Unsupported")
dec = const (fail "Unsupported")
ords :: QuasiQuoter
ords = QuasiQuoter exp pat typ dec where
exp = Q.stringCodepointsExp
pat = Q.stringCodepointsPat
typ = const (fail "Unsupported")
dec = const (fail "Unsupported")
chr :: QuasiQuoter
chr = QuasiQuoter exp pat typ dec where
exp = Q.stringCodepointCharExp
pat = Q.stringCodepointCharPat
typ = const (fail "Unsupported")
dec = const (fail "Unsupported")