Experiment.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import System.Process.Streaming
import System.Exit
import Data.ByteString (ByteString)
import qualified Data.ByteString.Lazy.Char8 as S
import Pipes.ByteString (toLazyM)


main :: IO ()
main = do
    (code, result) <- execute (pipeo (fromFold toLazyM)) (shell "ls -l")
    S.putStr result
    exitWith code

That's very nice, obviously :) I don't understand toLazy there; result is a strict ByteString.... oh, not it's not. You dropped to .Lazy. Yeah. You see, that's a non-starter.