+
+mkTickBoxOpId :: Unique
+ -> Module
+ -> TickBoxId
+ -> Id
+mkTickBoxOpId uniq mod ix = mkGlobalId (TickBoxOpId tickbox) name ty info
+ where
+ tickbox = TickBox mod ix
+ occ_str = showSDoc (braces (ppr tickbox))
+ name = mkTickBoxOpName uniq occ_str
+ info = noCafIdInfo
+ ty = realWorldStatePrimTy