From 85d8c4b7943abfd5b5fe463bea6b7a5352b10ca7 Mon Sep 17 00:00:00 2001 From: Francis Russell Date: Mon, 7 Jan 2013 18:02:45 +0000 Subject: [PATCH] Fix bug in mergeContiguous. --- OFC/Spectral.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/OFC/Spectral.hs b/OFC/Spectral.hs index 972d43a..bfac594 100644 --- a/OFC/Spectral.hs +++ b/OFC/Spectral.hs @@ -197,7 +197,7 @@ mergeOverlaps = mergeContiguous . sort . splitOverlaps where mergeContiguous ((Band l1 h1):(Band l2 h2):bs) = if h1==l2 then (Band l1 h2):(mergeContiguous bs) - else (Band l1 h2):(Band l2 h2):(mergeContiguous bs) + else (Band l1 h1):(Band l2 h2):(mergeContiguous bs) mergeContiguous bs = bs splitOverlaps :: [Band] -> [Band] -- 2.47.3