et ∷ T.Socket → Word16 → Producer ByteString EUIO ()
fromSocket sock = hoist fromIO . T.fromSocket sock . fromIntegral

toSocket ∷ T
fromSocket ∷ T.Socket → Word16 → Producer ByteString EUIO ()
fromSocket sock = hoist fromIO . T.fromSocket sock . fromIntegral
fromSocket sock = hoist fromIO . T.fromSocket sock . fromIntegral