works

silly.hs

main :: IO ()
main = undefined
 
test = do 
    x <- eitherString1
    (y,_) <- eitherString2
    return (x ++ y)
  where
    eitherString1 = Right "lol"
    eitherString2 = Right ("Yolo", 7)
 
test2 = 
     eitherString1 >>= λx ->
     eitherString2 >>= λ(y, _) ->
     return  (x ++ y)
   where 
     eitherString1 = Right "lol"
     eitherString2 = Right ("Yolo", 7)