I hereby claim:
- I am doppioslash on github.
- I am doppioslash (https://keybase.io/doppioslash) on keybase.
- I have a public key ASDpjoxejMflRNmc3e7UeuPekw9Tj-6mgo2lMSKLRvzDBQo
To claim this, I am signing this object:
import Signal | |
import Time exposing (every, second) | |
import Date exposing (..) | |
import Graphics.Element exposing (show) | |
currentTime t = | |
let date' = fromTime t | |
sameMonth = Jun == (month date') | |
sameDay = 11 == (day date') | |
in |
import Graphics.Element exposing (..) | |
import Mouse | |
clickCount : Signal Int | |
clickCount = | |
Signal.foldp (\click total -> total + 1) 0 Mouse.clicks | |
main : Signal Element | |
main = Signal.map show clickCount |
import Graphics.Element exposing (..) | |
import Mouse | |
type alias Model = ((Int, Int), Int) | |
model : Signal Model | |
model = Signal.map2 (,) Mouse.position clickCount | |
clickCount : Signal Int | |
clickCount = |
import Html exposing (..) | |
import Html.App as Html | |
import Time exposing (Time, second) | |
import Html.Events exposing (..) | |
main = | |
Html.program | |
{ init = init | |
, update = update | |
, view = view |
import Html exposing (..) | |
import Html.App as Html | |
import Html.Attributes exposing (..) | |
import Html.Events exposing (onInput) | |
import String exposing (length) | |
main = | |
Html.beginnerProgram | |
{ model = model | |
, view = view |
I hereby claim:
To claim this, I am signing this object:
#! /bin/sh | |
### BEGIN INIT INFO | |
# Provides: phd | |
# Required-Start: $remote_fs $syslog | |
# Required-Stop: $remote_fs $syslog | |
# Default-Start: 2 3 4 5 | |
# Default-Stop: 0 1 6 | |
# Short-Description: phabricator | |
# Description: manages phd | |
### END INIT INFO |