HStringTemplateHelpers 0.0.7 → 0.0.8

raw patch · 2 files changed

+7/−6 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• HStringTemplateHelpers.cabal +1/−1
• Text/StringTemplate/Helpers.hs +6/−5

@@ -1,5 +1,5 @@ Name: HStringTemplateHelpers-Version: 0.0.7+Version: 0.0.8 License: GPL License-file: gpl.txt Description: Convenience functions and instances for HStringTemplate. I will deprecate this package if its contents are integrated into HStringTemplate.

@@ -8,7 +8,8 @@ module Text.StringTemplate.Helpers  (   directoryGroups'   , directoryGroups-  , directoryGroups2+  -- uses function from HStringTemplate which isn't strict, and I believe should be fixed in distribution.+  , directoryGroupsOld    , dirgroupKeys   , getTemplateGroup   , renderTemplateDirGroup@@ -82,7 +83,7 @@  The top group has key \".\" (mnemonic, current directory), other groups have key names of subdirectories, including the starting ., eg \".\/templates\/path\/to/\subdir\" -} -directoryGroups = directoryGroups' directoryGroup+directoryGroupsOld = directoryGroups' directoryGroup directoryGroups' :: (FilePath -> IO a) -> FilePath -> IO (M.Map FilePath a) directoryGroups' f' d = bracketCD d $ do                            subDirs <- findDirectories $ "." @@ -92,7 +93,7 @@              return (d,g)     findDirectories d = Find.find Find.always (Find.fileType Find.==? Find.Directory) d -directoryGroups2 = directoryGroups' directoryGroup2+directoryGroups = directoryGroups' directoryGroupNew {- | I think this does the same thing as directoryGroup (modulo IO strictness),       which uses an applicative idiom that melts my brain.       Not a direct translation, but it's easier for me to understand when written@@ -100,8 +101,8 @@      when in dynamicTemplateReload mode.      I think this needs to be fixed in HStringTemplate distribution as well. -}-directoryGroup2 :: Stringable a => FilePath -> IO (STGroup a)-directoryGroup2 path = do+directoryGroupNew :: Stringable a => FilePath -> IO (STGroup a)+directoryGroupNew path = do     fs <- return . ( filter ((".st" ==) . takeExtension) ) =<< getDirectoryContents path     templates <- mapM g fs     stmapping <- return . zip (map dropExtension fs) $ templates