X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/967c39efa10c8a2d74812741cd7a2a96602a6210..35ce78e3b164a71da6177f0577b598a12198d237:/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