eventFromHandle :: MonadIO m => Handle -> Producer Event m ()
eventFromHandle = getLHCOEvent . fromHandle
eventFromHandle :: MonadIO m => Handle -> Producer Event m ()
eventFromHandle = getLHCOEvent . fromHandle
eventFromHandle = getLHCOEvent . fromHandle