equal
deleted
inserted
replaced
136 typeDecl :: Parsec String u TypeDecl |
136 typeDecl :: Parsec String u TypeDecl |
137 typeDecl = choice [ |
137 typeDecl = choice [ |
138 char' '^' >> typeDecl >>= return . PointerTo |
138 char' '^' >> typeDecl >>= return . PointerTo |
139 , try (string' "shortstring") >> return String |
139 , try (string' "shortstring") >> return String |
140 , try (string' "string") >> optionMaybe (brackets pas $ integer pas) >> return String |
140 , try (string' "string") >> optionMaybe (brackets pas $ integer pas) >> return String |
141 , try (string' "ansistring") >> optionMaybe (brackets pas $ integer pas) >> return String |
141 , try (string' "ansistring") >> optionMaybe (brackets pas $ integer pas) >> return AString |
142 , arrayDecl |
142 , arrayDecl |
143 , recordDecl |
143 , recordDecl |
144 , setDecl |
144 , setDecl |
145 , functionType |
145 , functionType |
146 , sequenceDecl >>= return . Sequence |
146 , sequenceDecl >>= return . Sequence |