-- | Generate a decimal type synonym alias
genTypeAlias :: String -> Q Type -> Q Dec
genTypeAlias str t = tySynD name [] t
 where name = mkName $ str

-- | Generate a decimal value-level reflected alias
genTypeAlias :: String -> Q Type -> Q Dec
genTypeAlias str t = tySynD name [] t
 where name = mkName $ str

-- | Generate a decimal value-level reflected alias
genTypeAlias str t = tySynD name [] t
 where name = mkName $ str

-- | Generate a decimal value-level reflected alias