interpolate 0.1.1 → 0.2.0

raw patch · 3 files changed

+26/−12 lines, 3 filesdep +base-compat

Dependencies added: base-compat

Files

• interpolate.cabal +14/−10
• src/Data/String/Interpolate.hs +9/−1
• test/Data/String/Interpolate/UtilSpec.hs +3/−1

@@ -1,9 +1,11 @@--- This file has been generated from package.yaml by hpack version 0.17.0.+-- This file has been generated from package.yaml by hpack version 0.26.0. -- -- see: https://github.com/sol/hpack+--+-- hash: cc8a15b9e3938bac2066e1f8e454e027bd589000a0baf42191f06ceb39e9ce04  name:             interpolate-version:          0.1.1+version:          0.2.0 homepage:         https://github.com/sol/interpolate#readme bug-reports:      https://github.com/sol/interpolate/issues license:          MIT@@ -35,9 +37,9 @@       Data.String.Interpolate.Parse       Paths_interpolate   build-depends:-      base == 4.*+      base ==4.*+    , haskell-src-meta >=0.8     , template-haskell-    , haskell-src-meta >= 0.8   ghc-options: -Wall   default-language: Haskell2010 @@ -59,14 +61,16 @@       Data.String.Interpolate.ParseSpec       Data.String.Interpolate.UtilSpec       Data.String.InterpolateSpec+      Paths_interpolate   build-depends:-      base == 4.*-    , template-haskell-    , haskell-src-meta >= 0.8-    , text+      QuickCheck+    , base ==4.*+    , base-compat     , bytestring-    , hspec >= 1.5-    , QuickCheck+    , haskell-src-meta >=0.8+    , hspec >=1.5     , quickcheck-instances+    , template-haskell+    , text   ghc-options: -Wall   default-language: Haskell2010

@@ -40,7 +40,7 @@ -- profession: Marvin the λ-scientist i :: QuasiQuoter i = QuasiQuoter {-    quoteExp = toExp . parseNodes+    quoteExp = toExp . parseNodes . decodeNewlines   , quotePat = err "pattern"   , quoteType = err "type"   , quoteDec = err "declaration"@@ -62,3 +62,11 @@             reportError "Parse error in expression!"             [|""|]           Right e -> return e++decodeNewlines :: String -> String+decodeNewlines = go+  where+    go xs = case xs of+      '\r' : '\n' : ys -> '\n' : go ys+      y : ys -> y : go ys+      [] -> []

@@ -1,8 +1,10 @@ module Data.String.Interpolate.UtilSpec (main, spec) where +import           Prelude ()+import           Prelude.Compat+ import           Test.Hspec import           Test.QuickCheck-import           Control.Applicative  import           Data.String.Interpolate.Util