shakespeare-text 1.0.0.7 → 1.0.0.8

raw patch · 2 files changed

+8/−11 lines, 2 files

Files

• Text/Shakespeare/Text.hs +7/−10
• shakespeare-text.cabal +1/−1

@@ -29,11 +29,8 @@ import Text.Shakespeare import Data.Int (Int32, Int64) -renderText :: Builder -> TL.Text-renderText = toLazyText- renderTextUrl :: RenderUrl url -> TextUrl url -> TL.Text-renderTextUrl r s = renderText $ s r+renderTextUrl r s = toLazyText $ s r  type TextUrl url = RenderUrl url -> Builder @@ -61,7 +58,7 @@ stext =    QuasiQuoter { quoteExp = \s -> do     rs <- settings-    render <- [|renderText|]+    render <- [|toLazyText|]     rendered <- shakespeareFromString rs { justVarInterpolation = True } s     return (render `AppE` rendered)     }@@ -70,7 +67,7 @@ st =    QuasiQuoter { quoteExp = \s -> do     rs <- settings-    render <- [|TL.toStrict . renderText|]+    render <- [|TL.toStrict . toLazyText|]     rendered <- shakespeareFromString rs { justVarInterpolation = True } s     return (render `AppE` rendered)     }@@ -119,7 +116,7 @@ codegen =   QuasiQuoter { quoteExp = \s -> do     rs <- codegenSettings-    render <- [|renderText|]+    render <- [|toLazyText|]     rendered <- shakespeareFromString rs { justVarInterpolation = True } s     return (render `AppE` rendered)     }@@ -131,7 +128,7 @@ codegenSt =   QuasiQuoter { quoteExp = \s -> do     rs <- codegenSettings-    render <- [|TL.toStrict . renderText|]+    render <- [|TL.toStrict . toLazyText|]     rendered <- shakespeareFromString rs { justVarInterpolation = True } s     return (render `AppE` rendered)     }@@ -139,13 +136,13 @@ codegenFileReload :: FilePath -> Q Exp codegenFileReload fp = do     rs <- codegenSettings-    render <- [|TL.toStrict . renderText|]+    render <- [|TL.toStrict . toLazyText|]     rendered <- shakespeareFileReload rs{ justVarInterpolation = True } fp     return (render `AppE` rendered)  codegenFile :: FilePath -> Q Exp codegenFile fp = do     rs <- codegenSettings-    render <- [|TL.toStrict . renderText|]+    render <- [|TL.toStrict . toLazyText|]     rendered <- shakespeareFile rs{ justVarInterpolation = True } fp     return (render `AppE` rendered)

@@ -1,5 +1,5 @@ name:            shakespeare-text-version:         1.0.0.7+version:         1.0.0.8 license:         MIT license-file:    LICENSE author:          Greg Weber <greg@gregweber.info>