mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 03:32:51 -06:00
change the library root namespace from GF.GFCC to PGF
This commit is contained in:
14
src-3.0/PGF/CId.hs
Normal file
14
src-3.0/PGF/CId.hs
Normal file
@@ -0,0 +1,14 @@
|
||||
module PGF.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
|
||||
Reference in New Issue
Block a user