I have:

runUnixServer (serverSettings socket) $ \appData ->
  appSource appData
  $$ CL.map handleBS
  =$ appSink appData

I  want to store some data in priority queue in Monad.State and be able to access it inside the handleBS (now: handleBS :: ByteString -> ByteString). Can you send me on the right path?

Thanx, Pavel.