I'd recommend a slight change:

```haskell
readIt = awaitForever $ \i -> yield (i, liftIO $ BS.readFile $ encodeString i)
```

or even:

```haskell
import qualified Data.Conduit.List

readIt = CL.map $ \i -> (i, liftIO $ BS.readFile $ encodeString i)
```