shikensu 0.2.0 → 0.2.1

raw patch · 6 files changed

+17/−15 lines, 6 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Shikensu: list :: FilePath -> [Pattern] -> IO Dictionary

+ Shikensu: list :: [Pattern] -> FilePath -> IO Dictionary

- Shikensu: listF :: [Pattern] -> FilePath -> IO Dictionary

+ Shikensu: listF :: FilePath -> [Pattern] -> IO Dictionary

Files

shikensu.cabal +1/−1
src/Shikensu.hs +7/−5
tests/Test/Contrib.hs +1/−1
tests/Test/Example.hs +1/−1
tests/Test/Shikensu.hs +4/−4
tests/Test/Utilities.hs +3/−3

shikensu.cabal view

@@ -1,5 +1,5 @@ name: shikensu-version: 0.2.0+version: 0.2.1 category: File IO  synopsis:

src/Shikensu.hs view

@@ -35,8 +35,8 @@ 5. Merge the dictionaries into one dictionary.  -}-list :: FilePath -> [Pattern] -> IO Dictionary-list rootDir patterns =+list :: [Pattern] -> FilePath -> IO Dictionary+list patterns rootDir =     patterns         |> compilePatterns         |> globDir rootDir@@ -45,9 +45,11 @@         |> fmap (List.concat)  -listF :: [Pattern] -> FilePath -> IO Dictionary-listF patterns rootDir =-    list rootDir patterns+{-| Flipped version of `list`.+-}+listF :: FilePath -> [Pattern] -> IO Dictionary+listF rootDir patterns =+    list patterns rootDir

tests/Test/Contrib.hs view

@@ -44,7 +44,7 @@  list :: Shikensu.Pattern -> IO Shikensu.Dictionary list pattern =-    rootPath >>= Shikensu.listF [pattern]+    rootPath >>= Shikensu.list [pattern]   example_md :: IO Shikensu.Dictionary

tests/Test/Example.hs view

@@ -36,7 +36,7 @@  dictionary_io :: String -> IO Dictionary dictionary_io absolutePathToCwd =-    Shikensu.list absolutePathToCwd ["fixtures/*.md"]+    Shikensu.list ["fixtures/*.md"] absolutePathToCwd         >>= read         >>= flow         >>= write "./build"

tests/Test/Shikensu.hs view

@@ -24,7 +24,7 @@ testRegular =     let         pattern = "tests/**/*.md"-        dictionary = fmap sort $ rootPath >>= Shikensu.listF [pattern]+        dictionary = fmap sort $ rootPath >>= Shikensu.list [pattern]         definition = fmap List.head dictionary         localPath = "fixtures/example.md"     in@@ -54,7 +54,7 @@ testDot =     let         pattern = "./tests/**/*.md"-        dictionary = fmap sort $ rootPath >>= Shikensu.listF [pattern]+        dictionary = fmap sort $ rootPath >>= Shikensu.list [pattern]         definition = fmap List.head dictionary         localPath = "fixtures/example.md"     in@@ -84,7 +84,7 @@ testWithoutWd =     let         pattern = "**/*.md"-        dictionary = fmap sort $ testsPath >>= Shikensu.listF [pattern]+        dictionary = fmap sort $ testsPath >>= Shikensu.list [pattern]         definition = fmap List.head dictionary         localPath = "fixtures/example.md"     in@@ -114,7 +114,7 @@ testRootFile =     let         pattern = "*.md"-        dictionary = fmap sort $ rootPath >>= Shikensu.listF [pattern]+        dictionary = fmap sort $ rootPath >>= Shikensu.list [pattern]         definition = fmap List.head dictionary         localPath = "CHANGELOG.md"     in

tests/Test/Utilities.hs view

@@ -30,8 +30,8 @@     let         result =             Utils.lsequence-                [ ( "a", rootPath >>= Shikensu.listF ["tests/fixtures/example.md"] )-                , ( "b", rootPath >>= Shikensu.listF ["tests/fixtures/example.md"] )+                [ ( "a", rootPath >>= Shikensu.list ["tests/fixtures/example.md"] )+                , ( "b", rootPath >>= Shikensu.list ["tests/fixtures/example.md"] )                 ]     in         testCase "Test lsequence"@@ -47,7 +47,7 @@          dictionary =             rootPath-                >>= Shikensu.listF ["tests/fixtures/example.md"]+                >>= Shikensu.list ["tests/fixtures/example.md"]                 >>= flow          def =