-- | Derive Lift instances for the given datatype.
deriveLift :: Name -> Q [Dec]
deriveLift = deriveLift' <=< reify
deriveLift :: Name -> Q [Dec]
deriveLift = deriveLift' <=< reify
deriveLift = deriveLift' <=< reify