prozacchiwawa

diff --git a/installers/BuildFromSource.hs b/installers/BuildFromSource.hs
index f9c3037..15a2d75 100644
--- a/installers/BuildFromSource.hs
+++ b/installers/BuildFromSource.hs
@@ -175,7 +175,7 @@ makeRepos :: FilePath -> String -> [(String, String)] -> IO ()
 makeRepos artifactDirectory version repos =
   do  createDirectoryIfMissing True artifactDirectory
       setCurrentDirectory artifactDirectory
-      writeFile "cabal.config" "split-objs: True"
+      writeFile "cabal.config" "split-objs: True\ncompiler: ghcjs"

prozacchiwawa

diff --git a/elm-compiler.cabal b/elm-compiler.cabal
index 6e6d4e7..815b212 100644
--- a/elm-compiler.cabal
+++ b/elm-compiler.cabal
@@ -140,8 +140,8 @@ Library
         Paths_elm_compiler
 
     Build-depends:
-        aeson >= 0.7 && < 0.9,
-        aeson-pretty >= 0.7 && < 0.8,

prozacchiwawa

module Signals.Touch where

import Json.Decode as D exposing ((:=))
import Html
import Html.Events exposing (on, onWithOptions)
import Signal exposing (Address(..), message)

type alias TouchPosition = {
        pageX : Float
    ,   pageY : Float

prozacchiwawa

import Html exposing (..)
import String
import Lazy.List as LL exposing (LazyList)

type alias Stack = List String


push : String -> Stack -> Stack
push tok stack = 
 (tok :: stack)

prozacchiwawa

import Html exposing (..)
import String
import Lazy.List as LL exposing (LazyList)

type alias Stack = List String


push : String -> Stack -> Stack
push tok stack = 
 (tok :: stack)

prozacchiwawa

module Main where

import Html exposing (Html, div)
import Signal exposing (Address(..))
import Module1

type Action = Stuff | Module1Action Module1.Action

type alias Model = { m1 : Module1.Model }

prozacchiwawa

module Main where

import Prelude
import Control.Monad.Eff
import Control.Monad.Eff.Console
import qualified Data.String as String
import qualified Node.Process as Process

doWithArgv :: forall e. (Array String -> Eff (process :: Process.PROCESS | e) Unit) -> Eff (process :: Process.PROCESS | e) Unit
doWithArgv f = do

prozacchiwawa

module Main where

import Prelude
import Control.Monad.Eff
import Control.Monad.Eff.Console
import qualified Data.String as String
import qualified Node.Process as Process

doWithArgv :: forall e. (Array String -> Eff e Unit) -> Eff (process :: Process.PROCESS | e) Unit
doWithArgv f = do

prozacchiwawa

...

componentUpdate msgMap u action m =
    let displaysWithEffects = Array.toList (Array.map (msgMap u action) m.display)
    in
    ({ m | display = Array.fromList (List.map fst displaysWithEffects) }, Effects.batch (List.map snd displaysWithEffects))

componentMapM : (Action -> Model -> (Model, Effects Action)) -> Action -> EffModel Model Action -> EffModel Model Action
componentMapM updater action effmodel =
    let y = EF.get effmodel in

prozacchiwawa

import Effects exposing (Effects(..), Never)
import Html exposing (Html, div, button, text)
import Html.Events exposing (onClick)
import Signal exposing (Mailbox)
import StartApp as SA
import Task exposing (Task(..))

type Request = DummyRequest | Request String
type Response = Response String