fredcy

module Main (..) where

import Html
import Html.Events
import Http.Extra
import Task
import Effects
import StartApp

fredcy

Keybase proof

I hereby claim:

• I am fredcy on github.
• I am fredcy (https://keybase.io/fredcy) on keybase.
• I have a public key ASDaqzdEQzsRRt-VbmDXscGVjQ8suYzQuPbdzfou3dPsYQo

To claim this, I am signing this object:

fredcy

import Graphics.Element exposing (show)

type Foo = A { x : Int, y : String }
         | B { x : Int, m : Float }

f : Foo -> Foo
f foo =
  let
     incr v = { v | x = v.x + 1 }
  in 

fredcy

import Graphics.Element exposing (..)

main2 = 
  let
    me = you
    you = "Jane"
  in
      show (me, you)
  
main3 =

fredcy

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import StartApp.Simple as StartApp

options : List (String)
options = [ "one", "two", "three", "four", "five" ]

type alias Model = String
type alias Action = String

fredcy

import Char
import Html exposing (..)
import Html.Events exposing (..)
import StartApp.Simple as StartApp
import String

main =
    StartApp.start { model = model, view = view, update = update }

type alias Model = String

fredcy

import Effects exposing (Effects)
import Html exposing (..)
import StartApp
import Task exposing (Task)
import Window

type alias Model = (Int, Int)

type Action = Update (Int, Int) | NoOp

fredcy

import Effects
import Html exposing (..)
import Http
import StartApp
import Task


app : StartApp.App String
app =
    StartApp.start

fredcy

import Date
import Effects
import Html exposing (li, text, ul)
import StartApp
import Time

app =
  StartApp.start
    { init = (0, Effects.none)
    , inputs = [Time.every Time.second]

fredcy

#!/bin/bash

SITEHOME=/home/fred/elm/platform/Elm-Platform/master/elm-lang.org
PROG=dist/build/run-elm-website/run-elm-website

NAME=elm-website
PATH=/usr/local/bin:/home/fred/.cabal/bin:$PATH
LOGFILE=/var/log/${NAME}.log

# need this to avoid error about "hGetContents: invalid argument