Fri Dec 2 22:10:03 WET 2005 Malcolm.Wallace@cs.york.ac.uk
* more parsing updates due to HaXml-1.15
{
hunk ./src/NetworkControl.hs 391
- case Parse.runParser Parse.parse () newInfo of
- (Right x, _, s) ->
+ case Parse.runParser Parse.parse newInfo of
+ (Right x, s) ->
hunk ./src/NetworkControl.hs 408
- (Left err, _, s) -> errorDialog theFrame "Edit warning"
+ (Left err, s) -> errorDialog theFrame "Edit warning"
hunk ./src/NetworkControl.hs 418
- case Parse.runParser Parse.parse () newInfo of
- (Right x, _, s) ->
+ case Parse.runParser Parse.parse newInfo of
+ (Right x, s) ->
hunk ./src/NetworkControl.hs 435
- (Left err, _, s) -> errorDialog theFrame "Edit warning"
+ (Left err, s) -> errorDialog theFrame "Edit warning"
hunk ./src/NetworkControl.hs 451
- case Parse.runParser Parse.parse () newInfo of
- (Right x, _, s) ->
+ case Parse.runParser Parse.parse newInfo of
+ (Right x, s) ->
hunk ./src/NetworkControl.hs 461
- (Left err, _, s) -> errorDialog theFrame "Edit warning"
+ (Left err, s) -> errorDialog theFrame "Edit warning"
hunk ./src/NetworkUI.hs 397
- ; case (\ (a,_,_)->a) (runParser parse () contents) of {
+ ; case fst (runParser parse contents) of {
}