Kyle Hanson hansonkd

hansonkd / Main.hs

Created January 6, 2013 06:21

	{-# LANGUAGE TemplateHaskell #-}
	{-# LANGUAGE OverloadedStrings #-}


	module Main where

	import Control.Exception (SomeException, try)
	import Control.Arrow (second)
	import qualified Data.Text as T
	import System.IO

hansonkd / gist:3458272

Created August 25, 2012 01:07

Snap OpenId persistent state example

	{-# LANGUAGE DeriveDataTypeable #-}
	{-# LANGUAGE GeneralizedNewtypeDeriving #-}
	{-# LANGUAGE MultiParamTypeClasses #-}
	{-# LANGUAGE TemplateHaskell #-}
	{-# LANGUAGE TypeFamilies #-}
	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RecordWildCards #-}

	module Main where
	------------------------------------------------------------------------------

hansonkd / gist:3426748

Created August 22, 2012 15:24

	{-# LANGUAGE NoImplicitPrelude #-}

	module Console where

	import Language.Fay.FFI
	import Language.Fay.Prelude

	data MyData = MyData { xVar :: Int, yVar :: Int }
	instance Foreign MyData

hansonkd / gist:3422759

Created August 22, 2012 06:06

Fay JSON

	{-# LANGUAGE NoImplicitPrelude #-}

	module Console where

	import Language.Fay.FFI
	import Language.Fay.Prelude

	data MyData = MyData { xVar :: Int, yVar :: Int }

	myData :: MyData