I hereby claim:
- I am bartavelle on github.
- I am bartavelle (https://keybase.io/bartavelle) on keybase.
- I have a public key whose fingerprint is 226E C60D 353D 2535 09D5 8DF7 301C 82F3 F499 C0F8
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
| module Main where | |
| import qualified Data.Set as S | |
| import qualified Data.Map.Strict as M | |
| import Data.Semigroup | |
| import Control.Monad | |
| data Piece | |
| = Rook | |
| | Bishop |
| module Data.Parsers.Xml | |
| ( Parser | |
| , ParserT | |
| , xmldeclaration | |
| , startelement | |
| , endelement | |
| , element | |
| , element_ | |
| , lx | |
| , extractParameter |
| {-# LANGUAGE GADTs #-} | |
| {-# LANGUAGE TypeFamilies #-} | |
| {-# LANGUAGE MultiParamTypeClasses #-} | |
| {-# LANGUAGE TypeApplications #-} | |
| {-# LANGUAGE FlexibleContexts #-} | |
| {-# LANGUAGE FlexibleInstances #-} | |
| {-# LANGUAGE TemplateHaskell #-} | |
| {-# LANGUAGE RankNTypes #-} | |
| {-# LANGUAGE ScopedTypeVariables #-} | |
| {-# LANGUAGE OverloadedStrings #-} |
| module Bitfinex where | |
| import Lib | |
| type BitfinexExchange = Exchange | |
| type LevelCount = Int | |
| data BitfinexBookMessage = BitfinexBookMessage { getTime :: Time | |
| , getExchange :: BitfinexExchange | |
| , getBookMessage :: BookMessage |
| module Main where | |
| import Text.Parsec.String (Parser) | |
| import Text.Parsec.Prim (parse) | |
| import Text.Parser.Expression | |
| import Text.Parser.Token | |
| import Control.Applicative | |
| import Control.Monad | |
| data Expr = Add Expr Expr |