Skip to content
Browse files

Conditionally turn off NOINLINE fix (bos/text#19)

  • Loading branch information...
1 parent 53dca9c commit d23497bcda95c5576e22cc64c4a855f90a9e2442 @snoyberg snoyberg committed
Showing with 4 additions and 0 deletions.
  1. +2 −0 shakespeare-css/Text/Css.hs
  2. +2 −0 shakespeare/Text/Shakespeare.hs
View
2 shakespeare-css/Text/Css.hs
@@ -22,7 +22,9 @@ import Control.Arrow ((***))
pack :: String -> Text
pack = T.pack
+#if !MIN_VERSION_text(0, 11, 2)
{-# NOINLINE pack #-}
+#endif
fromText :: Text -> Builder
fromText = TLB.fromText
View
2 shakespeare/Text/Shakespeare.hs
@@ -210,7 +210,9 @@ preFilter ShakespeareSettings {..} s =
pack' :: String -> TS.Text
pack' = TS.pack
+#if !MIN_VERSION_text(0, 11, 2)
{-# NOINLINE pack' #-}
+#endif
contentsToShakespeare :: ShakespeareSettings -> [Content] -> Q Exp
contentsToShakespeare rs a = do

0 comments on commit d23497b

Please sign in to comment.
Something went wrong with that request. Please try again.