mintercalate

singpolyma · Oct 16, 2012 · 7636281 · 7636281
1 parent 82ab08d
commit 7636281
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Application.hs b/Application.hs
@@ -31,6 +31,10 @@ import Database
 import Records
 #include "PathHelpers.hs"
 
+-- https://github.com/snoyberg/basic-prelude/issues/23
+intercalate :: (Monoid w) => w -> [w] -> w
+intercalate xs xss = mconcat (intersperse xs xss)
+
 type ApplicationEitherIO = Request -> ResourceT EitherIO Response
 
 htmlEscape :: String -> String