yogsototh/haskell-turtle-library
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added convenience runner for things that implement Show

Browse source
This commit is contained in:
Gabriel Gonzalez 2015-01-18 20:57:33 -08:00
parent 5e2d77f65f
commit 91d0ad620f
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/Turtle/Shell.hs
View file

@ -58,6 +58,7 @@
module Turtle.Shell ( module Turtle.Shell (
Shell(..) Shell(..)
, feed , feed
, shell
, sh , sh
-- * Embeddings -- * Embeddings
@ -85,8 +86,14 @@ feed :: Shell a -> Fold a b -> IO b
feed s f = feedIO s (Foldl.generalize f) feed s f = feedIO s (Foldl.generalize f)
-- | Run a `Shell` to completion, discarding any unused values -- | Run a `Shell` to completion, discarding any unused values
sh :: Shell a -> IO () shell :: Shell a -> IO ()
sh s = feed s (pure ()) shell s = feed s (pure ())
-- | Run a `Shell` to completion, `print`ing any unused values
sh :: Show a => Shell a -> IO ()
sh s = shell (do
x <- s
liftIO (print x) )
instance Functor Shell where instance Functor Shell where
fmap f s = Shell (\(FoldM step begin done) -> fmap f s = Shell (\(FoldM step begin done) ->