net.sf.staccatocommons.control.monad.internal.AppendMonad Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of staccatissimo-control Show documentation

The newest version!

/**
 *  Copyright (c) 2010-2012, The StaccatoCommons Team
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU Lesser General Public License as published by
 *  the Free Software Foundation; version 3 of the License.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU Lesser General Public License for more details.
 */


package net.sf.staccatocommons.control.monad.internal;

import net.sf.staccatocommons.control.monad.AbstractMonad;
import net.sf.staccatocommons.control.monad.Monad;
import net.sf.staccatocommons.control.monad.MonadicValue;
import net.sf.staccatocommons.defs.Applicable;

/**
 * @author flbulgarelli
 * 
 */
/**
 * @author flbulgarelli
 * 
 * @param 
 */
public class AppendMonad extends AbstractMonad {

  private final Monad first, second;

  /**
   * Creates a new {@link AppendMonad}
   */
  public AppendMonad(Monad first, Monad second) {
    this.first = first;
    this.second = second;
  }

  public void run() {
    first.value();
    second.value();
  }

  public MonadicValue monadicValue() {
    return new MonadicValue() {
      public  void eval(Applicable> function) {
        first.monadicValue().eval(function);
        second.monadicValue().eval(function);
      }
    };
  }

}