Skip to content

Instantly share code, notes, and snippets.

@deadfoxygrandpa
Created April 17, 2014 01:49
Show Gist options
  • Save deadfoxygrandpa/10947587 to your computer and use it in GitHub Desktop.
Save deadfoxygrandpa/10947587 to your computer and use it in GitHub Desktop.
Stack size
module Main where
import ElmTest.Assertion as A
import ElmTest.Run as R
import ElmTest.Runner.Console (runDisplay)
import ElmTest.Test (..)
import IO.IO (..)
import IO.Runner (Request, Response)
import IO.Runner as Run
tests = repeat 10000 (test "" <| A.assert True)
console : IO ()
console = runDisplay tests
port requests : Signal [{ mPut : Maybe String
, mExit : Maybe Int
, mGet : Bool
}]
port requests = Run.run responses console
port responses : Signal (Maybe String)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment