-language: haskell
\ No newline at end of file
+language: haskell
+
+before_install:
+ # Uncomment whenever hackage is down.
+ # - mkdir -p ~/.cabal && cp travis/config ~/.cabal/config && cabal update
+
+ # Try installing some of the build-deps with apt-get for speed.
+ - travis/cabal-apt-install $mode
+
+install:
+ - cabal configure $mode
+ - cabal build
+
+notifications:
+ irc:
+ channels:
+ - "irc.freenode.org##piffle"
+ skip_join: true
+ template:
+ - "\x0313linear\x03/\x0306%{branch}\x03 \x0314%{commit}\x03 %{build_url} %{message}"
-- | Apply a transformation to each 'Char' in the stream
-- >>> let margaret = ["Margaret, are you grieving\nOver Golde","ngrove unleaving?":: Text]
--- >>> TL.putStrLn $ toLazy $ each margaret >-> map Data.Char.toUpper
+-- >>> TL.putStrLn . toLazy $ each margaret >-> map Data.Char.toUpper
-- MARGARET, ARE YOU GRIEVING
-- OVER GOLDENGROVE UNLEAVING?
map :: (Monad m) => (Char -> Char) -> Pipe Text Text m r
take n0 = go n0 where
go n
| n <= 0 = return ()
- | otherwise = do
+ | otherwise = do
txt <- await
let len = fromIntegral (T.length txt)
if (len > n)