projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Bindist comparison tool: Handle differences in the library ways nicely
[ghc-hetmet.git]
/
distrib
/
compare
/
Utils.hs
diff --git
a/distrib/compare/Utils.hs
b/distrib/compare/Utils.hs
index
58298c1
..
d5fb8cb
100644
(file)
--- a/
distrib/compare/Utils.hs
+++ b/
distrib/compare/Utils.hs
@@
-26,3
+26,10
@@
re r str = case matchM r' str :: Maybe (String, String, String, [String]) of
Nothing -> Nothing
where r' = makeRegex r :: Regex
+unSepList :: Eq a => a -> [a] -> [[a]]
+unSepList x xs = case break (x ==) xs of
+ (this, _ : xs') ->
+ this : unSepList x xs'
+ (this, []) ->
+ [this]
+