brendanhay

{-# LANGUAGE RecordWildCards #-}

-- Module      : Data.SemVer
-- Copyright   : (c) 2013 Brendan Hay <brendan.g.hay@gmail.com>
-- License     : This Source Code Form is subject to the terms of
--               the Mozilla Public License, v. 2.0.
--               A copy of the MPL can be found in the LICENSE file or
--               you can obtain it at http://mozilla.org/MPL/2.0/.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : experimental

brendanhay

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Control.Lens            -- lens
import Control.Monad.IO.Class  -- transformers
import Control.Monad.Trans.AWS -- amazonka
import Network.AWS.EC2         -- amazonka-ec2

main :: IO ()

brendanhay

lvl768_r4v5V
  :: Data.CaseInsensitive.Internal.CI Data.Text.Internal.Text
[GblId, Str=DmdType]
lvl768_r4v5V =
  case Data.Text.unpackCString# "disabled"#
  of dt_a19nJ
  { Data.Text.Internal.Text ipv_s19nM ipv1_s19nN ipv2_s19nO ->
  case GHC.ST.runSTRep
         @ Data.Text.Internal.Text
         (\ (@ s1_a19nY) (s2_a19nZ :: GHC.Prim.State# s1_a19nY) ->

brendanhay

#!/usr/bin/env bash

set -e

core=( documentation amazonka-core amazonka )

priority_=( s3 autoscaling elb sqs iam ec2 )
priority=${priority_[@]/#/amazonka-}

library_=( $(ls -d amazonka-*) )

brendanhay

amazonka-ec2:                 187
amazonka-iam:                 114
amazonka-rds:                 81
amazonka-opsworks:            75
amazonka-redshift:            64
amazonka-s3:                  57
amazonka-storagegateway:      55
amazonka-autoscaling:         53
amazonka-elasticache:         42
amazonka-elasticbeanstalk:    37

brendanhay

λ: type ExampleResource = "foo" :> "bar" :> Capture "alt" Text :> QueryParam "quote" Bool :> Get '[JSON] Text
λ: let p = Proxy :: Proxy ExampleResource 
λ: let u = BaseUrl Http
λ: let u = BaseUrl Http "localhost" 8080
λ: let example = client p u
λ: :t example 
example :: Text -> Maybe Bool -> EitherT ServantError IO Text

brendanhay

flag optimise
    Description:       Turns on -O2 optimizations
    Default:           False

library
  ...
    if flag(optimise)
      ghc-options:     -O2 -Wall -Werror
    else
      ghc-options:     -O1 -Wall

brendanhay

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses      #-}
{-# LANGUAGE TypeFamilies               #-}
{-# LANGUAGE UndecidableInstances       #-}

module MonadControlGHC8 where

import           Control.Applicative         (Alternative, Applicative)
import           Control.Monad.Base          (MonadBase)
import           Control.Monad.Reader        (MonadReader, ReaderT)

brendanhay

diff --git a/vowpalwabbit/vwdll.h b/vowpalwabbit/vwdll.h
index 4ccc36f8..6c659b7a 100644
--- a/vowpalwabbit/vwdll.h
+++ b/vowpalwabbit/vwdll.h
@@ -57,7 +57,6 @@ typedef void * VW_EXAMPLE;
   typedef void * VW_LABEL;
   typedef void * VW_FEATURE_SPACE;
   typedef void * VW_FEATURE;
-typedef void * VW_IOBUF;
 

brendanhay

Keybase proof

I hereby claim:

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

To claim this, I am signing this object: