Skip to content

Instantly share code, notes, and snippets.

View intolerable's full-sized avatar

Intolerable intolerable

33 followers · 2 following
View GitHub Profile
@intolerable
intolerable / DotGo.hs
Last active August 29, 2015 14:08
a quick port of john graham-cumming's dotgo talk code in haskell
module DotGo where
import Control.Concurrent.Async
import Control.Monad
import Pipes
import Pipes.Concurrent
import qualified Pipes.Prelude as Pipes
main :: IO ()
main = do
@intolerable
intolerable / gist:800ab1b2df47a5f06ab7
Last active January 4, 2017 15:31
hero discussion list
@intolerable
intolerable / HeroDiscussions.hs
Created January 27, 2015 19:14
#!/usr/bin/env runhaskell
{-# LANGUAGE OverloadedStrings #-}
module HeroDiscussion where
import Control.Applicative
import Control.Arrow
import Control.Monad.IO.Class
import Data.Attoparsec.Text as Parser
@intolerable
intolerable / named-routes-th.hs
Last active June 10, 2025 11:48
HasServer instances for records of routes using TemplateHaskell instead of Generic
data NamedRoutesTH api
class ToServantApiTH routes where
type ServantApiTH routes :: Type
toServantTH :: routes (AsServerT m) -> ServerT (ServantApiTH routes) m
fromServantTH :: ServerT (ServantApiTH routes) m -> routes (AsServerT m)
instance
( ToServantApiTH api