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

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
  }

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

import Html exposing (..)
import Html.Attributes exposing (..)
import Combine exposing (..)
import Combine.Char exposing (..)
import Combine.Infix exposing (..)
import String
import List.Extra exposing (groupWhile)

testInput =
  "hello (!BOLD!) I Am a bold text (!BOLD!)bla bla la"

freakingawesome

import Html exposing (..)
import Html.App exposing (program)
import Html.Events exposing (onClick, on, targetValue)
import Html.Attributes exposing (..)
import Json.Decode as Json
import String

{-
  Summary of changes since: https://gist.github.com/freakingawesome/2a021ddeaf0fb3592c4714885339ca2a