[Haskell-cafe] Conduit Sink fork

Hi! So, it turns out I have a need for a sink that forks input into two other sinks using the Conduit package. Here is what I came up with: https://gist.github.com/1975383 Is this the right way to write it? Also, what left over value(s) should I return in the Done constructor? I appreciate any help you can give me. Thanks so much,Grant