stutter 0.1.0.0 → 0.1.0.1
raw patch · 3 files changed
+37/−31 lines, 3 filesdep ~conduitdep ~conduit-combinatorsdep ~conduit-extra
Dependency ranges changed: conduit, conduit-combinators, conduit-extra, optparse-applicative, snipcheck, stutter, tasty, tasty-ant-xml
Files
- README.md +5/−3
- src/Stutter/Producer.hs +20/−16
- stutter.cabal +12/−12
README.md view
@@ -1,3 +1,8 @@+---+sc_check-sections:+ - examples+---+ # Stutter Stutter is a string utterer.@@ -20,7 +25,6 @@ # Installing - You currently need the Haskell build tool [stack](https://docs.haskellstack.org/en/stable/README/). Just run: @@ -51,7 +55,6 @@ But stutter also knows how to enumerate: - ``` shell $ stutter 'foo|bar|baz' foo@@ -70,7 +73,6 @@ ``` Stutter can also enumerate file contents:- ``` shell $ stutter 'foo|bar|baz' > test.txt
src/Stutter/Producer.hs view
@@ -74,19 +74,23 @@ :: (MonadIO m, MonadResource m) => ProducerGroup -> Source m T.Text-produceGroup (PRanges rs) = produceRanges rs-produceGroup (PText t) = yield t-produceGroup (PProduct g g') = produceGroup g- .| awaitForever ( \t -> (forever $ yield ())- .| produceGroup g'- .| awaitForever (\t' -> yield (t <> t')))-produceGroup (PSum g g') = produceGroup g >> produceGroup g'-produceGroup (PZip g g') = zipSources (produceGroup g) (produceGroup g')- .| CL.map (\(a,b) -> a <> b)-produceGroup (PRepeat g) = forever $ produceGroup g-produceGroup (PFile f) = CB.sourceFile f- .| CB.lines- .| CL.decodeUtf8-produceGroup (PStdin bs) = CB.sourceLbs bs- .| CB.lines- .| CL.decodeUtf8+produceGroup (PRanges rs) = produceRanges rs+produceGroup (PText t) = yield t+produceGroup (PProduct g g') =+ produceGroup g+ .| awaitForever ( \t -> forever (yield ())+ .| produceGroup g'+ .| awaitForever (\t' -> yield (t <> t')))+produceGroup (PSum g g') = produceGroup g >> produceGroup g'+produceGroup (PZip g g') =+ zipSources (produceGroup g) (produceGroup g')+ .| CL.map (uncurry (<>))+produceGroup (PRepeat g) = forever $ produceGroup g+produceGroup (PFile f) =+ CB.sourceFile f+ .| CB.lines+ .| CL.decodeUtf8+produceGroup (PStdin bs) =+ CB.sourceLbs bs+ .| CB.lines+ .| CL.decodeUtf8
stutter.cabal view
@@ -1,5 +1,5 @@ name: stutter-version: 0.1.0.0+version: 0.1.0.1 cabal-version: >=1.10 build-type: Simple license: MIT@@ -23,9 +23,9 @@ base >=4.9.1.0 && <4.10, attoparsec >=0.13.1.0 && <0.14, bytestring >=0.10.8.1 && <0.11,- conduit >=1.2.9 && <1.3,- conduit-combinators >=1.1.0 && <1.2,- conduit-extra >=1.1.15 && <1.2,+ conduit >=1.2.10 && <1.3,+ conduit-combinators >=1.1.1 && <1.2,+ conduit-extra >=1.1.16 && <1.2, mtl >=2.2.1 && <2.3, resourcet >=1.1.9 && <1.2, text >=1.2.2.1 && <1.3@@ -38,10 +38,10 @@ build-depends: base >=4.9.1.0 && <4.10, attoparsec >=0.13.1.0 && <0.14,- conduit >=1.2.9 && <1.3,- conduit-combinators >=1.1.0 && <1.2,- optparse-applicative >=0.13.1.0 && <0.14,- stutter >=0.1.0.0 && <0.2,+ conduit >=1.2.10 && <1.3,+ conduit-combinators >=1.1.1 && <1.2,+ optparse-applicative >=0.13.2.0 && <0.14,+ stutter >=0.1.0.1 && <0.2, text >=1.2.2.1 && <1.3 default-language: Haskell2010 hs-source-dirs: exe/@@ -53,10 +53,10 @@ build-depends: base >=4.9.1.0 && <4.10, attoparsec >=0.13.1.0 && <0.14,- snipcheck >=0.1.0.0 && <0.2,- stutter >=0.1.0.0 && <0.2,- tasty >=0.11.1 && <0.12,- tasty-ant-xml >=1.0.4 && <1.1,+ snipcheck >=0.1.0.1 && <0.2,+ stutter >=0.1.0.1 && <0.2,+ tasty >=0.11.2.1 && <0.12,+ tasty-ant-xml >=1.0.5 && <1.1, tasty-hunit >=0.9.2 && <0.10 default-language: Haskell2010 hs-source-dirs: test/