[Haskell-beginners] combining two monads