suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changed the Either order in TreeUtil of getMatchedItems to match Haskell convention

Browse Source
This commit is contained in:
Neil Brown 2007-08-18 11:09:37 +00:00
parent 7b81208794
commit fe5141d310
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
TreeUtil.hs
View File

@ -176,11 +176,11 @@ assertPatternMatch msg exp act =
-- | A function for getting the matched items from the patterns on the LHS
-- Either returns the matched items, or a list of errors from the matching
getMatchedItems :: (Data y, Data z) => y -> z -> Either Items MatchErrors
getMatchedItems :: (Data y, Data z) => y -> z -> Either MatchErrors Items
getMatchedItems a b
= case errors of
[] -> Left items
_ -> Right errors
[] -> Right items
_ -> Left errors
where (errors,items) = runState (checkMatch (mkPattern a) b) (Map.empty)