parseTypeArr = parseTypeBool   <|>
               parseTypeNat    <|>
               parseTypeFloat  <|>
               parseTypeUnit   <|>
               parseTypeString <|>
               parseTypeBot    <|>
               parseNamedType  <|>
               parseVariantType  <|>
               braces parseType
parseTypeArr = parseTypeBool   <|>
               parseTypeNat    <|>
               parseTypeFloat  <|>
               parseTypeUnit   <|>
               parseTypeString <|>
               parseTypeBot    <|>
               parseNamedType  <|>
               parseVariantType  <|>
               braces parseType
parseTypeArr = parseTypeBool   <|>
               parseTypeNat    <|>
               parseTypeFloat  <|>
               parseTypeUnit   <|>
               parseTypeString <|>
               parseTypeBot    <|>
               parseNamedType  <|>
               parseVariantType  <|>
               braces parseType