Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
32 changes: 32 additions & 0 deletions example-httpserver/ExampleHttpServer.elm
Original file line number Diff line number Diff line change
@@ -0,0 +1,32 @@
module ExampleHttpServer exposing (main)

import Http exposing (serve, Request, Response, sendResponse)
import Platform exposing (program)
import Task exposing(Task)
import Console exposing(log)
import String exposing(append)

type alias Model = ()
type Msg = Booted () | BootLogged ()

handle : Request -> Response -> Task Never ()
handle req res =
sendResponse res "Hello world"

init : ( Model, Cmd Msg )
init =
( (), Task.perform Booted (serve 8000 handle) )

update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
case msg of
Booted _ -> ( (), Task.perform BootLogged ( log "Server booted" ) )
BootLogged _ -> ( (), Cmd.none )

main : Program Never Model Msg
main =
program
{ init = init
, update = update
, subscriptions = always Sub.none
}
6 changes: 6 additions & 0 deletions example-httpserver/example-httpserver-runner
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
#!/usr/bin/env node
'use strict';

var Elm = require('./example-httpserver.js');

var app = Elm.ExampleHttpServer.worker();
Loading