File fix-lts-9-build.patch of Package ghc-taggy

Overview Repositories Revisions Requests Users Attributes Meta

File fix-lts-9-build.patch of Package ghc-taggy

From 5456c2fa4d377f7802ec5df3d5f50c4ccab2e8ed Mon Sep 17 00:00:00 2001
From: vi <vi@computational.law>
Date: Fri, 28 Jul 2017 19:00:23 +0200
Subject: [PATCH] Build compatability with blaze-markup 0.8.0.0.

Resolves #19.
Resolves #20.
---
 src/Text/Taggy/Renderer.hs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/Text/Taggy/Renderer.hs b/src/Text/Taggy/Renderer.hs
index d1d3486..a931905 100644
--- a/src/Text/Taggy/Renderer.hs
+++ b/src/Text/Taggy/Renderer.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE LambdaCase, RecordWildCards, FlexibleInstances, UndecidableInstances, OverloadedStrings #-}
+{-# LANGUAGE CPP, LambdaCase, RecordWildCards, FlexibleInstances, UndecidableInstances, OverloadedStrings #-}
 -- |
 -- Module       : Text.Taggy.Renderer
 -- Copyright    : (c) 2014 Alp Mestanogullari, Vikram Verma
@@ -33,7 +33,13 @@ class AsMarkup a where
 -- | A 'Node' is convertible to 'Markup'
 instance AsMarkup Node where
   toMarkup convertEntities = \case
-    NodeContent text -> Content $ if convertEntities then Text text else PreEscaped (Text text)
+#if MIN_VERSION_blaze_markup(0,8,0)
+    NodeContent text -> flip Content () $
+#else
+    NodeContent text -> Content $
+#endif
+      if convertEntities then Text text else PreEscaped (Text text)
+
     NodeElement elmt -> toMarkup convertEntities elmt
 
 -- | An 'Element' is convertible to 'Markup'

Places

File fix-lts-9-build.patch of Package ghc-taggy

Places