directory-layout 0.7.2.0 → 0.7.3.0
raw patch · 4 files changed
+10/−3 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ System.Directory.Layout: dedentSubst :: QuasiQuoter
Files
- CHANGELOG.md +5/−0
- directory-layout.cabal +2/−2
- src/System/Directory/Layout.hs +1/−0
- src/System/Directory/Layout/QQ.hs +2/−1
CHANGELOG.md view
@@ -1,3 +1,8 @@+0.7.3.0+=======++ * Made `dedentSubst` more polymorphic+ 0.7.2.0 =======
directory-layout.cabal view
@@ -1,5 +1,5 @@ name: directory-layout-version: 0.7.2.0+version: 0.7.3.0 synopsis: Directory layout DSL description: Making, fitting, printing directory layouts@@ -21,7 +21,7 @@ source-repository this type: git location: https://github.com/supki/directory-layout- tag: 0.7.2.0+ tag: 0.7.3.0 library default-language:
src/System/Directory/Layout.hs view
@@ -19,6 +19,7 @@ , binary , text , dedent+ , dedentSubst , copyOf , source , exists
src/System/Directory/Layout/QQ.hs view
@@ -11,6 +11,7 @@ import Data.List (intercalate) import Data.Sequence (Seq, ViewL(..), ViewR(..), (|>)) import qualified Data.Sequence as Seq+import Data.String (fromString) import Language.Haskell.TH.Quote (QuasiQuoter(..)) import Language.Haskell.TH.Syntax (liftString) import Language.Haskell.TH (Q, Exp)@@ -53,7 +54,7 @@ -- world -- ! dedentSubst :: QuasiQuoter-dedentSubst = dedentWith substituteVars+dedentSubst = dedentWith $ \x -> [e| fromString $(substituteVars x) |] dedentWith :: (String -> Q Exp) -> QuasiQuoter dedentWith f = quoter $ f . withLines (strip . trim (all isSpace))