bench/src/Main.elm · elk

on 17618de help sign in

elk/bench/src/Main.elm

46 lines 884 B history raw

1module Main where

3import Html exposing (Html, text)

4import Signal

5import Task

7import Benchmark

8import Syntax.Case as Case

9import Syntax.Let as Let

10import Syntax.Records as Records

11import Realistic.Check as Check

12import Realistic.Todo as Todo

15-- COMPILER BENCHMARK

17compilerBenchmark : Benchmark.Benchmark

18compilerBenchmark =

19 Benchmark.suite "generated code"

20 [ Benchmark.suite "business logic from the wild"

21 [ Check.benchmark

22 , Todo.benchmark

23 ]

24 , Benchmark.suite "syntax"

25 [ Case.benchmark

26 , Let.benchmark

27 , Records.benchmark

28 ]

29 ]

32-- DISPLAY THINGS

34main =

35 results.signal

38results : Signal.Mailbox Html

39results =

40 Signal.mailbox (text "Working...")

43port benchResults : Task.Task x ()

44port benchResults =

45 Benchmark.run compilerBenchmark

46 `Task.andThen` (Benchmark.view >> Signal.send results.address)