simonh1000

module River exposing (..)


type Character
    = Wolf
    | Goat
    | Cabbage


type State

simonh1000

module Main exposing (..)

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Navigation
import Json.Decode as Json


main =

simonh1000

module DragTable exposing (..)

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Json.Decode as Json exposing (Decoder, Value)
import Dict exposing (Dict)
import List as L exposing (drop, take)
import Tuple

simonh1000

module Test exposing (..)

import Html exposing (..)
import Html.App as App
import Html.Attributes exposing (..)
import Html.Events exposing (..)

import List exposing (map)
import Json.Decode as Json

simonh1000

module Test exposing (..)

import Platform.Cmd exposing (Cmd)

import Html exposing (..)
import Html.App as Html
import Html.Attributes exposing (..)

import Form exposing (..)
import Form.Input as Input

simonh1000

module Spa where

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)

import StartApp

import Effects exposing (Effects, Never)
import Task

simonh1000

module ArchictectureErrorHandler where

import Text exposing (fromString)
import String
import Json.Decode as Json exposing (..)

import StartApp exposing (start)
import Html exposing (..)
import Http exposing (get, Error)
import Effects exposing (Effects)

simonh1000

import Http
import Markdown
import Html exposing (Html, div, text)
import Task exposing (Task, andThen)
import Json.Decode as Json exposing (..)

type alias ValWithErr = Result String Int

main : Signal Html
main =

simonh1000

import Control.Applicative
import Control.Monad

-- :k MonadClass :: * -> *
data MonadClass a = MonadClass a

-- fmap :: (a -> b) -> (m a -> m b)
instance Functor MonadClass where
	fmap f = (<*>) (MonadClass f)

simonh1000

"use strict"

/*

An implementation of the Maybe monad in ES6, representing 
 - Maybe as a singleton array
 - Nothing and null

Compiled and run with Traceur
traceur --out build.js --script maybe.js