statusfailed

{-# LANGUAGE DeriveFunctor #-}
module Expr where

import Data.Monoid

data Expr a
  = Lit a
  | Neg (Expr a)
  | Add (Expr a) (Expr a)
  | Sub (Expr a) (Expr a)

statusfailed

import Html exposing (Html, text)
import Signal exposing (constant)
import Json.Decode as Json exposing ((:=))

type alias Person =
  { name : String
  , age  : Int 
  }

personDecoder : Json.Decoder Person

statusfailed

{-# LANGUAGE FlexibleContexts #-}
module Main where

import Prelude hiding (id, (.))
import Control.Category
import Control.Applicative
import Control.Monad
import Control.Monad.Trans
import Control.Monad.IO.Class