tools/protocolParser.hs
branchqmlfrontend
changeset 11459 3c5d99013baf
parent 11447 6b04a266feee
equal deleted inserted replaced
11458:e7c7ca0c1556 11459:3c5d99013baf
   107         , cmd1 "CFG~FEATURE_SIZE" IntP
   107         , cmd1 "CFG~FEATURE_SIZE" IntP
   108         , cmd1 "CFG~MAZE_SIZE" IntP
   108         , cmd1 "CFG~MAZE_SIZE" IntP
   109         , cmd1 "CFG~SCRIPT" SS
   109         , cmd1 "CFG~SCRIPT" SS
   110         , cmd1 "CFG~DRAWNMAP" LS
   110         , cmd1 "CFG~DRAWNMAP" LS
   111         , cmd2 "CFG~AMMO" SS LS
   111         , cmd2 "CFG~AMMO" SS LS
   112         , cmd1 "CFG~FULLMAPCONFIG" $ Many [LS]
   112         , cmd1 "CFG~FULLMAPCONFIG" $ Many [SS]
   113     ]
   113     ]
   114 
   114 
   115 hasMany = any isMany
   115 hasMany = any isMany
   116 isMany (Many _) = True
   116 isMany (Many _) = True
   117 isMany _ = False
   117 isMany _ = False