-------------------- TH.Syntax -----------------------
liftClassName :: Name
liftClassName = thCls (fsLit "Lift") liftClassKey
liftClassName :: Name
liftClassName = thCls (fsLit "Lift") liftClassKey
liftClassName = thCls (fsLit "Lift") liftClassKey