Matt McCutchen's Web Site
/
match
/
match.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Stop GHC 6.6.1 from fussing about lack of a trailing newline.
[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
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
padWith :: a -> Int -> [a] -> [a]
padWith _ 0 l = l
padWith e n [] = replicate n e