From 5b079262a0ba9387844a1886938133d49d11a8bb Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 25 May 2014 23:03:44 -0400
Subject: put in hack for weird new problem with ghc's emitted splices

---
 Build/EvilSplicer.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Build/EvilSplicer.hs')

diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs
index bcffa3866..9a7806200 100644
--- a/Build/EvilSplicer.hs
+++ b/Build/EvilSplicer.hs
@@ -301,6 +301,7 @@ expandExpressionSplice sp lls = concat [before, spliced:padding, end]
 {- Tweaks code output by GHC in splices to actually build. Yipes. -}
 mangleCode :: String -> String
 mangleCode = flip_colon
+	. remove_weird_string_hash
 	. remove_unnecessary_type_signatures
 	. lambdaparenhack
 	. lambdaparens
@@ -549,6 +550,11 @@ mangleCode = flip_colon
 	 - The ; is added by case_layout. -}
 	flip_colon = replace "; : _ " "; _ : "
 
+	{- Sometimes a string will end with ".."#, and the hash needs to be
+	 - removed. 
+	 -}
+	remove_weird_string_hash = replace "\"#" "#"
+
 {- This works around a problem in the expanded template haskell for Yesod
  - type-safe url rendering.
  -
-- 
cgit v1.2.3