X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/0fad209eedf28273f231ab76addc0272ffe32fc0..7b8c0e4e53d51ee1d3207493738ee9a36e7181d8:/program/Formatter.hs

diff --git a/program/Formatter.hs b/program/Formatter.hs
index 5ee5a00..ed851b3 100644
--- 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