Add compatibility gorp for GHC 6.6.1.

[match/match.git] / program / Formatter.hs

diff --git a/program/Formatter.hs b/program/Formatter.hs
index 5ee5a00..ed851b3 100644 (file)
--- a/program/Formatter.hs
+++ b/program/Formatter.hs
@@ -1,6 +1,10 @@
 module Formatter where
 import Data.List
 
+#if __GLASGOW_HASKELL__ <= 606
+intercalate xs xss = concat (intersperse xs xss)
+#endif
+
 padWith :: a -> Int -> [a] -> [a]
 padWith _ 0 l = l
 padWith e n [] = replicate n e