Gab-km

# hgrc

[extensions]
mq =
hgshelve = $HOME/.mercurial/extensions/hgshelve/hgshelve.py

[alias]
# fix latest commit message (hg 1.8.x only)
fix = ! \
  $HG shelve --all -n 'tmp.hg-fix' && \

Gab-km

# hgrc
# if you use some Unix base operating systems, like Linux distributions, BSDs or Macs,
# see: https://gist.github.com/1187980

[extensions]
mq =
hgshelve = $HOME/.mercurial/extensions/hgshelve/hgshelve.py

[alias]
# fix latest commit message

Gab-km

GitHub Flow

• Scott Chacon on the Interwebs(リンク切れ)
• Scott Chacon on the Interwebs
• GitHub Flow - The best way to use Git and GitHub

31 Aug 2011

git-flowの問題点 (Issues with git-flow)

Gab-km

type HttpStatus =
    { Code: string; Message: string }
    override self.ToString () = sprintf "%s %s" self.Code self.Message

let httpStatus code message = { Code = code; Message = message }

let httpStatusList =[
    httpStatus "100" "Continue";
    httpStatus "101" "Switching Protocols";
    httpStatus "102" "Processing";

Gab-km

open System

//============================================
// IOモナド
//============================================
module IO =
    type IO<'a> = IO of (unit -> 'a)

    type IOBuilder() =
        member this.Bind (IO x, f) = f (x())

Gab-km

namespace FsCheck.Ext

module Test =
    open System
    open FsCheck
    open FsCheck.Arb

    type JapaneseChar = char
     
    let japaneseChar (s: string) =