glazier-pipes (empty) → 0.1.0.0
raw patch · 6 files changed
+99/−0 lines, 6 filesdep +basedep +glazierdep +lenssetup-changed
Dependencies added: base, glazier, lens, mtl, pipes, pipes-misc, transformers
Files
- LICENSE +30/−0
- README.md +4/−0
- Setup.hs +2/−0
- glazier-pipes.cabal +33/−0
- src/Glazier/Pipes/Lazy.hs +15/−0
- src/Glazier/Pipes/Strict.hs +15/−0
+ LICENSE view
@@ -0,0 +1,30 @@+Copyright Author name here (c) 2017++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++ * Redistributions of source code must retain the above copyright+ notice, this list of conditions and the following disclaimer.++ * Redistributions in binary form must reproduce the above+ copyright notice, this list of conditions and the following+ disclaimer in the documentation and/or other materials provided+ with the distribution.++ * Neither the name of Author name here nor the names of other+ contributors may be used to endorse or promote products derived+ from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ README.md view
@@ -0,0 +1,4 @@+[](https://hackage.haskell.org/package/glazier-pipes)+[](http://travis-ci.org/louispan/glazier-pipes)++Functions that convert Glazier Gadget into a Pipe
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ glazier-pipes.cabal view
@@ -0,0 +1,33 @@+name: glazier-pipes+version: 0.1.0.0+synopsis: Converts Glazier widgets into a Pipe.+description: Please see README.md+homepage: https://github.com/louispan/glazier-pipes#readme+license: BSD3+license-file: LICENSE+author: Louis Pan+maintainer: louis@pan.me+copyright: 2017 Louis Pan+category: FRP+build-type: Simple+extra-source-files: README.md+cabal-version: >=1.10+tested-with: GHC == 8.0.1++library+ hs-source-dirs: src+ exposed-modules: Glazier.Pipes.Lazy+ Glazier.Pipes.Strict+ build-depends: base >= 4.7 && < 5+ , glazier >= 0.5 && < 1+ , lens >= 4 && < 5+ , mtl >= 2 && < 3+ , pipes >= 4 && < 5+ , pipes-misc >= 0.2 && < 1+ , transformers >= 0.4 && < 0.6+ ghc-options: -Wall+ default-language: Haskell2010++source-repository head+ type: git+ location: https://github.com/louispan/glazier-pipes
+ src/Glazier/Pipes/Lazy.hs view
@@ -0,0 +1,15 @@+module Glazier.Pipes.Lazy where++import Control.Monad.State.Lazy+import qualified Glazier.Lazy as G+import qualified Pipes as P+import Control.Lens++-- | Converts a Gadget into a Pipe+gadgetToPipe :: (Monad m, MonadTrans t, MonadState s (t m)) => G.Gadget s m a c -> P.Pipe a c (t m) r+gadgetToPipe g = forever $ do+ a <- P.await+ s <- get+ ~(c, s') <- lift . lift $ view G._GadgetT g a s+ put s'+ P.yield c
+ src/Glazier/Pipes/Strict.hs view
@@ -0,0 +1,15 @@+module Glazier.Pipes.Strict where++import Control.Monad.State.Strict+import qualified Glazier.Strict as G+import qualified Pipes as P+import Control.Lens++-- | Converts a Gadget into a Pipe+gadgetToPipe :: (Monad m, MonadTrans t, MonadState s (t m)) => G.Gadget s m a c -> P.Pipe a c (t m) r+gadgetToPipe g = forever $ do+ a <- P.await+ s <- get+ (c, s') <- lift . lift $ view G._GadgetT g a s+ put s'+ P.yield c