rawstring-qm 0.2.3.0 → 0.2.3.1
raw patch · 2 files changed
+8/−8 lines, 2 files
Files
- rawstring-qm.cabal +7/−7
- src/Data/Text/ToText.hs +1/−1
rawstring-qm.cabal view
@@ -1,5 +1,5 @@ name: rawstring-qm-version: 0.2.3.0+version: 0.2.3.1 cabal-version: >=1.10 synopsis: Simple raw string quotation and dictionary interpolation description: Supply a couple of usefull QuasiQuotes so we can use functions to lookup values@@ -9,7 +9,7 @@ license-file: LICENSE author: Marcin Tolysz maintainer: tolysz@gmail.com-copyright: (c)2014-16 Marcin Tolysz+copyright: (c)2014-25 Marcin Tolysz category: Text build-type: Simple extra-source-files: CHANGES@@ -19,16 +19,16 @@ location: https://github.com/tolysz/rawstring-qm.git library- exposed-modules: Data.String.QM+ exposed-modules: Data.String.QM , Data.Text.ToText , Data.Text.ToTextBuilder -- other-modules: -- other-extensions: - build-depends: base >4.6 && <5- , text- , template-haskell- , bytestring+ build-depends: base >4.6 && <5+ , text+ , template-haskell+ , bytestring hs-source-dirs: src default-language: Haskell2010
src/Data/Text/ToText.hs view
@@ -33,7 +33,7 @@ toLazyText :: a -> TL.Text fromText :: Text -> Either Text a- fromText v = maybe (Left $ "parse failed: `" <> v <>"` can not be parsed as" <> pack (show (typeOf (undefined :: a))) ) Right . readMaybe . unpack $ v+ fromText v = maybe (Left $ "parse failed: `" <> v <>"` can not be parsed as" <> pack (Prelude.show (typeOf (undefined :: a))) ) Right . readMaybe . unpack $ v maybeFromText :: Text -> Maybe a maybeFromText = either (const Nothing) Just . fromText