freakingawesome

import Html exposing (..)
import Html.App exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Html.Attributes exposing (..)
import Http
import Task exposing (Task)
import Json.Decode as Json exposing ((:=))

type Msg

freakingawesome

" Settings

set noautofocus
set cncpcompletion
set nosmoothscroll
set nohud
set autohidecursor
set typelinkhints
let scrollduration = 10
let searchlimit = 40

freakingawesome

Keybase proof

I hereby claim:

• I am freakingawesome on github.
• I am freakingawesome (https://keybase.io/freakingawesome) on keybase.
• I have a public key ASD6D3LL2YIHMoTgYePvQcQCSn0ngr3yjx4rGxEm0OxJ1wo

To claim this, I am signing this object:

freakingawesome

import Html exposing (..)
import Html.Events exposing (..)

main : Program Never Model Msg
main =
  Html.program
    { init = init
    , view = view
    , update = update
    , subscriptions = \_ -> Sub.none

freakingawesome

GHCi, version 8.0.1: http://www.haskell.org/ghc/  :? for help
Loaded GHCi configuration from C:\Users\CHAD~1.GIL\AppData\Local\Temp\ghci34580\ghci-script
Prelude> import Text.Parsec
Prelude Text.Parsec> import Text.Parsec.String
Prelude Text.Parsec Text.Parsec.String> :{
Prelude Text.Parsec Text.Parsec.String| parsePair :: Parser (String, String)
Prelude Text.Parsec Text.Parsec.String| parsePair = do
Prelude Text.Parsec Text.Parsec.String|   a <- manyTill anyChar $ string "--"
Prelude Text.Parsec Text.Parsec.String|   b <- many1 alphaNum
Prelude Text.Parsec Text.Parsec.String|   pure (a, b)

freakingawesome

type Record =
    Record
        InnerType
        InnerType
        InnerType
        InnerType
        InnerType
        InnerType
        InnerType
        InnerType

freakingawesome

> type Route = SettingsRoute (Maybe String) (Maybe String)
> parsePath (map SettingsRoute (s "blog" <?> stringParam "search" <?> stringParam "sortBy")) (Location "" "" "" "" "" "" "/blog" "?search=cats&sortBy=name" "" "" "")
Just (SettingsRoute (Just "cats") (Just "name")) : Maybe.Maybe Repl.Route

freakingawesome

port module Spelling exposing (..)

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import String


main =
  Html.program

freakingawesome

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Html.App exposing (program)
import Http

main =
  program { init = init, view = view, update = update, subscriptions = \_ -> Sub.none }

type Msg

freakingawesome

import Html exposing (text)
import Json.Decode as Json exposing (Decoder, (:=))
import Dict exposing (Dict)

type Player = Player Int PlayerContents

type alias PlayerContents =
  { name : String
  , team : Team
  }