Skip to content

Instantly share code, notes, and snippets.

View gregorycollins's full-sized avatar

Gregory Collins gregorycollins

184 followers · 26 following
View GitHub Profile
@gregorycollins
gregorycollins / Snaplets.hs
Created July 24, 2010 19:05
{-# LANGUAGE EmptyDataDecls #-}
{-# LANGUAGE PackageImports #-}
module Snaplets where
import "monads-fd" Control.Monad.State
import Data.ByteString (ByteString)
import Data.Dynamic
import Data.Map (Map)
import Snap.Types
@gregorycollins
gregorycollins / Main.hs
Created July 9, 2010 19:27
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Control.Applicative
import Control.Monad.Trans
import qualified Data.ByteString.Lazy as L
import Snap.Http.Server
import Snap.Types
import Snap.Util.FileServe
@gregorycollins
gregorycollins / ConnectionPool.hs
Created July 8, 2010 00:20
{-# LANGUAGE BangPatterns #-}
module Network.ConnectionPool
( withConnection
, newConnectionPool
, closeConnectionPool
, ConnectionPool
) where
------------------------------------------------------------------------