fieldType ftype
 = case ftype of
    FEnum ename -> "enum " ++ ename
    FStruct sname -> "struct " ++ sname
    FString -> "char*"
    FInt ik is -> intType ik is
fieldType ftype
 = case ftype of
    FEnum ename -> "enum " ++ ename
    FStruct sname -> "struct " ++ sname
    FString -> "char*"
    FInt ik is -> intType ik is
fieldType ftype
 = case ftype of
    FEnum ename -> "enum " ++ ename
    FStruct sname -> "struct " ++ sname
    FString -> "char*"
    FInt ik is -> intType ik is