-- Would be better not to wire these in quite this way. Sigh
symCo = string "ghczmprim:GHCziPrim.sym" >> return SymC
transCo = string "ghczmprim:GHCziPrim.trans" >> return TransC
unsafeCo = string "ghczmprim:GHCziPrim.CoUnsafe" >> return UnsafeC
leftCo = string "ghczmprim:GHCziPrim.left" >> return LeftC
rightCo = string "ghczmprim:GHCziPrim.right" >> return RightC
-- Would be better not to wire these in quite this way. Sigh
symCo = string "ghczmprim:GHCziPrim.sym" >> return SymC
transCo = string "ghczmprim:GHCziPrim.trans" >> return TransC
unsafeCo = string "ghczmprim:GHCziPrim.CoUnsafe" >> return UnsafeC
leftCo = string "ghczmprim:GHCziPrim.left" >> return LeftC
rightCo = string "ghczmprim:GHCziPrim.right" >> return RightC