Fix bug in mergeContiguous.

diff --git a/OFC/Spectral.hs b/OFC/Spectral.hs
index 972d43ac84403d9633c4a8828b96029d4e833007..bfac594ae083fd1c757f4650771547aee377b5fa 100644 (file)
--- 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]