Skip to content

Instantly share code, notes, and snippets.

@kouphax
Last active August 29, 2015 14:26
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kouphax/8ad1b0ffcb878abf098e to your computer and use it in GitHub Desktop.
Save kouphax/8ad1b0ffcb878abf098e to your computer and use it in GitHub Desktop.
module Confirm where
import Html exposing (..)
import Html.Events exposing (..)
import Html.Attributes exposing (..)
import Signal exposing (..)
import StartApp
port getName : Signal String
main : Signal Html
main = Signal.map text getName
<!DOCTYPE HTML>
<html>
<head>
<meta charset="UTF-8">
<script type="text/javascript" src="confirm.js"></script>
</head>
<body>
</body>
<script type="text/javascript">
var app = Elm.fullscreen(Elm.Confirm, { getName: "James" });
app.ports.getName.send("Peter")
</script>
</html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment