X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcOverlay.hs;h=76cc76e0d7c4da33f45903829bcd821491ab36e3;hb=8b6f1dbd2d68af0652aebb8bc3253c64086305f4;hp=0cf56e4ae35b21c184ee0f14e941a1f29c5329a4;hpb=c8742f253f0c0b38f977530eceaaecac55578b4b;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcOverlay.hs b/utils/hpc/HpcOverlay.hs
index 0cf56e4..76cc76e 100644
--- a/utils/hpc/HpcOverlay.hs
+++ b/utils/hpc/HpcOverlay.hs
@@ -138,9 +138,10 @@ qualifier pos (Just (AtPosition l1' c1' l2' c2'))
 	  = (l1', c1', l2', c2') == fromHpcPos pos
 
 concatSpec :: [Spec] -> Spec
-concatSpec = foldl1 $ 
-	       \ (Spec pre1 body1) (Spec pre2 body2) 
-		     -> Spec (pre1 ++ pre2) (body1 ++ body2)
+concatSpec = foldr 
+	       (\ (Spec pre1 body1) (Spec pre2 body2) 
+		     -> Spec (pre1 ++ pre2) (body1 ++ body2))
+		(Spec [] [])