fix resultMonad