astTypeFromString :: String -> AST.Type
astTypeFromString varType
    | varType == "Double" = double
    | otherwise           = emptyType
astTypeFromString :: String -> AST.Type
astTypeFromString varType
    | varType == "Double" = double
    | otherwise           = emptyType
astTypeFromString varType
    | varType == "Double" = double
    | otherwise           = emptyType