{-# LANGUAGE OverloadedStrings #-} module Data.Text.ENIG.Show where import Data.Text.ENIG.Data import Data.Text (Text) import qualified Data.Text as T tShowPPPCa :: PPPCategory -> Text tShowPPPCa EN = "은(는)" tShowPPPCa EL = "을(를)" tShowPPPCa IG = "이(가)" tShowPPPCa WG = "와(과)" tShowPPPCa IX = "(이)" tShowPPPCa EuX = "(으)" sShowPPPCa :: PPPCategory -> String sShowPPPCa = T.unpack . tShowPPPCa tShowPPPId :: PPPIdentity -> Text tShowPPPId Eun = "은" tShowPPPId Neun = "는" tShowPPPId Eul = "을" tShowPPPId Leul = "를" tShowPPPId I = "이" tShowPPPId Ga = "가" tShowPPPId Wa = "와" tShowPPPId Gwa = "과" tShowPPPId Ix = "이" tShowPPPId Eux = "으" tShowPPPId X = "" sShowPPPId :: PPPIdentity -> String sShowPPPId = T.unpack . tShowPPPId