Улучшил, блять ``` -- case res of -- Left s -> putStrLn (fromText s) -- Right rsp -> getResponseBody rsp >>= \r -> putStrLn (toString r) res & ((either (return . fromText) (getResponseBody >=> return . toString)) >=> putStrLn) ```