packages feed

QuasiText 0.1.2.5 → 0.1.2.6

raw patch · 2 files changed

+4/−6 lines, 2 filesdep +th-lift-instancesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies added: th-lift-instances

API changes (from Hackage documentation)

- Text.QuasiText: instance [incoherent] Eq Chunk
- Text.QuasiText: instance [incoherent] Lift Text
- Text.QuasiText: instance [incoherent] Show Chunk
- Text.QuasiText: instance [incoherent] Show a => Textish a
- Text.QuasiText: instance [incoherent] Textish Text
- Text.QuasiText: instance [incoherent] Textish [Char]
+ Text.QuasiText: instance GHC.Classes.Eq Text.QuasiText.Chunk
+ Text.QuasiText: instance GHC.Show.Show Text.QuasiText.Chunk
+ Text.QuasiText: instance GHC.Show.Show a => Text.QuasiText.Textish a
+ Text.QuasiText: instance Text.QuasiText.Textish Data.Text.Internal.Text
+ Text.QuasiText: instance Text.QuasiText.Textish [GHC.Types.Char]

Files

QuasiText.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                QuasiText-version:             0.1.2.5+version:             0.1.2.6 synopsis:            A QuasiQuoter for Text. description:         A QuasiQuoter for interpolating values into Text strings. homepage:            https://github.com/mikeplus64/QuasiText@@ -16,5 +16,5 @@  library   exposed-modules:     Text.QuasiText-  build-depends:       base >= 4.5.0.0 && < 5.0.0.0, template-haskell, haskell-src-meta, attoparsec, text+  build-depends:       base >= 4.5.0.0 && < 5.0.0.0, template-haskell, haskell-src-meta, attoparsec, text, th-lift-instances   hs-source-dirs:      src
src/Text/QuasiText.hs view
@@ -3,6 +3,7 @@ -- A simple 'QuasiQuoter' for 'Text' strings. Note that to use 'embed' you need to use the OverloadedStrings extension.  module Text.QuasiText (embed, Chunk (..), getChunks) where+import Instances.TH.Lift () -- for the `instance Lift Text` import Language.Haskell.TH.Quote import Language.Haskell.TH.Syntax import Language.Haskell.TH@@ -15,9 +16,6 @@  import Data.Monoid import Control.Applicative-                        -instance Lift Text where-    lift = litE . stringL . T.unpack  data Chunk      = T Text -- ^ text@@ -57,7 +55,7 @@                             Left  e -> error e                             Right e -> appE [| toText |] (return e) -                        V t -> appE [| toText |] (global (mkName (T.unpack t)))+                        V t -> appE [| toText |] (varE (mkName (T.unpack t)))          in appE [| T.concat |] (listE chunks)     }