fmap +http

fmapE :: (a -> Result b) -> IO (Result a) -> IO (Result b)
HTTP Network.Stream