fix critical bug in MiscUtils.dupes!
commitafd52b7c3eb270b8bde331b7a8e163237eefd18f
authorAgentM <agentm@themactionfaction.com>
dateMon 7 Nov 2016, 17:07 (10 years ago)
parent3d19603
src/lib/ProjectM36/MiscUtils.hs+1−1
@@ -5,4 +5,4 @@ dupes :: Eq a => [a] -> [a]
55dupes [] = []
66dupes (_:[]) = []
77dupes (x:y:[]) = if x == y then [x] else []
8−dupes (x:y:xs) = dupes(x:[y]) ++ dupes(xs)
8+dupes (x:y:xs) = dupes(x:[y]) ++ dupes(y : xs)