src-3.0/GF/GFCC/CId.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module GF.GFCC.CId (CId(..), wildCId, mkCId, prCId) where

import Data.ByteString.Char8 as BS

newtype CId = CId BS.ByteString deriving (Eq,Ord,Show)

wildCId :: CId
wildCId = CId (BS.singleton '_')

mkCId :: String -> CId
mkCId s = CId (BS.pack s)

prCId :: CId -> String
prCId (CId x) = BS.unpack x