genValAlias :: String -> Q Type -> Q Dec
genValAlias str t = body
 where name = mkName $ str
       body = valD (varP name) 
                   (normalB (sigE [| undefined |] t)) []


-- | Print an integer in certain base
genValAlias :: String -> Q Type -> Q Dec
genValAlias str t = body
 where name = mkName $ str
       body = valD (varP name) 
                   (normalB (sigE [| undefined |] t)) []


-- | Print an integer in certain base
genValAlias str t = body
 where name = mkName $ str
       body = valD (varP name) 
                   (normalB (sigE [| undefined |] t)) []


-- | Print an integer in certain base