No, you would have to provide three separate functions in `pipes-group` for the `FreeT` equivalents. However, I'm going to suggest in my following response a compromise solution where we duplicate only the `FreeT` lenses.

On 02/12/2014 08:24 PM, Pierre R wrote:

    Ok, I think I found an approach that will satisfy everybody.  This
    solution only requires providing three utility functions in
    `pipes-parse`:

        debugView
            :: (Producer a m x -> Producer b m y)
            -> (Producer a m x -> Producer b m y)
        debugView = id

        debugZoom
            :: (StateT (Producer a m x) m r -> StateT (Producer b m y)
    m r)
            -> (StateT (Producer a m x) m r -> StateT (Producer b m y)
    m r)
        debugZoom = id

        debugOver
            :: (   (Producer a m w -> Producer b m x)
                -> (Producer c m y -> Producer d m z) )
            -> (   (Producer a m w -> Producer b m x)
                -> (Producer c m y -> Producer d m z) )
        debugOver = id


is `debugView` supposed to work with FreeT lenses such as `lines` ?
--
You received this message because you are subscribed to the Google Groups "Haskell Pipes" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
To post to this group, send email to [email protected].

--
You received this message because you are subscribed to the Google Groups "Haskell 
Pipes" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
To post to this group, send email to [email protected].

Reply via email to