From d949ddf1adc826c53248dffa933fcdc5593083ef Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 25 May 2014 23:27:48 -0400
Subject: proper fix for "foo"#  -- need MagicHash extension

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

(limited to 'Build/EvilSplicer.hs')

diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs
index 0f0548917..bcffa3866 100644
--- a/Build/EvilSplicer.hs
+++ b/Build/EvilSplicer.hs
@@ -301,7 +301,6 @@ 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
@@ -550,11 +549,6 @@ 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