m-renaud

{-# LANGUAGE BangPatterns #-}
module FastParse (parseInts) where

import Prelude hiding (length)

import Control.Applicative hiding (empty)
import Control.Monad
import Data.Char
import Data.Maybe
import Data.Sequence

m-renaud

{-# LANGUAGE BangPatterns #-}
{-# OPTIONS_GHC -Odph #-}

import qualified Data.ByteString.Char8      as S
import qualified Data.Vector                as U

-- Read ints from stdin into a vector then print the length.
main = S.getContents >>= print . U.length . parse

-- Fill a new vector from a file containing a list of numbers.

m-renaud

{-# LANGUAGE BangPatterns #-}
{-# OPTIONS_GHC -Odph #-}

import Prelude hiding (map, sum)
import qualified Data.ByteString.Char8 as S
import Data.List.Stream

main = S.getContents >>= print . sumOfSquares . parse
  where sumOfSquares = sum . map (\x -> x * x)

m-renaud

module ParseUriQuery where

import Control.Applicative
import Data.Attoparsec.ByteString.Char8
import Data.ByteString.Char8 (ByteString, pack, unpack)
import Data.Either

data QueryTerm = QueryTerm { termName  :: ByteString
                           , termValue :: Maybe ByteString
                           } deriving (Eq, Read, Show)

m-renaud

set bind-tty-special-chars off

Control-h: backward-char
"\eh": backward-word

Control-t: previous-history
Control-n: next-history

Control-s: forward-char
"\es": forward-word

m-renaud

;;; Ergonomic changes.
;;; These are for the Dvorak keyboard layout.

(defvar mrenaud-ergo-minor-mode-map (make-keymap) "mrenaud-ergo-minor-mode keymap.")

;; Movement commands:
;; Now lie on right hand homerow.
;; h t n s
;; < ^ v >
(define-key mrenaud-ergo-minor-mode-map (kbd "C-h") 'backward-char)

m-renaud

{- | Based on http://www.osl.iu.edu/publications/prints/2005/garcia05:_extended_comparing05.pdf -}

{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}

import Data.Array

----------------------------------------
-- Typeclass definitions.

m-renaud

#!/bin/bash

# Save the current branch.
previous_branch=`git rev-parse --abbrev-ref HEAD`

# Switch to generated code branch and pull in any changes from the working branch.
git checkout generated-code
git merge --no-edit $previous_branch

# <Build generated files>

m-renaud

customDecoder decoder toResult = 
   Json.andThen
             (\a ->
                   case toResult a of 
                      Ok b -> Json.succeed b
                      Err err -> Json.fail err
             )
             decoder

m-renaud

(require 'helm-config)
(require 'helm-ls-git)
(require 'helm-swoop)

(helm-mode)

;; Interactive buffer rebindings.
(define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action)
(define-key helm-map (kbd "C-i") 'helm-execute-persistent-action)
(define-key helm-map (kbd "C-z")  'helm-select-action)