Christian Reite reite

reite / safecopy.hs

Created September 8, 2015 11:54

	data Action a where
	AddUser :: Username -> Password -> Action UserId
	DeleteUser :: UserId -> Action ()
	deriving (Typeable)

reite / gist:4f144f31d4cd53e79fe4

Created September 8, 2015 11:54

	data Action a where
	AddUser :: Username -> Password -> Action UserId
	DeleteUser :: UserId -> Action ()
	deriving (Typeable)

reite / gist:37feee0dceaea88dd77e

Created January 19, 2015 12:00

	Using a sandbox located at C:\Users\Christian\Desktop\test\.cabal-sandbox
	Searching for ghc in path.
	Found ghc at C:\Program Files (x86)\Haskell Platform\2013.2.0.0\bin\ghc.exe
	("C:\\Program Files (x86)\\Haskell Platform\\2013.2.0.0\\bin\\ghc.exe",["--numeric-version"])
	C:\Program Files (x86)\Haskell Platform\2013.2.0.0\bin\ghc.exe is version
	7.6.3
	looking for tool ghc-pkg near compiler in C:\Program Files (x86)\Haskell
	Platform\2013.2.0.0\bin
	found ghc-pkg in C:\Program Files (x86)\Haskell
	Platform\2013.2.0.0\bin\ghc-pkg.exe

reite / gist:33c9527daf8088ebb0bf

Created May 1, 2014 12:48


	import System.Process
	import GHC.IO.Handle
	import Text.Blaze.Html (Html)
	import Text.Blaze.Html.Renderer.Utf8 (renderHtml)
	import qualified Data.ByteString as B
	import qualified Data.ByteString.Lazy as BL


	convertHtml :: Html -> IO B.ByteString

reite / gist:9724183

Created March 23, 2014 15:04

	logic =
	true:
	4: ['3 Brights + Rain Man', 7]
	5: ['5 Brights', 10]
	false:
	3: ['3 Brights', 5]
	4: ['4 Brights', 8]

	[@bright_type, @bright] = logic[has(captures, RAIN_MAN)][num_20pt_cards] or ['<none>', 0]

reite / gist:9096655

Last active August 29, 2015 13:56

	{-# LANGUAGE ScopedTypeVariables #-}



	data Foo a = Foo {
	fooInt :: Int,
	fooA :: a
	}

	-- Foo has its own indexes as well as all the indexes of a.

reite / gist:8399494

Created January 13, 2014 12:31

	{-# LANGUAGE TemplateHaskell, DeriveDataTypeable #-}


	import Data.Acid
	import Data.SafeCopy
	import Data.Typeable
	import Control.Monad.State (get, put)


	data Foo = Foo String

reite / gist:7753131

Last active December 30, 2015 00:59

Result from running: https://gist.github.com/reite/7753128

reite / gist:7753128

Last active December 30, 2015 00:59


	import requests
	import grequests
	import json


	url = r'http://hotell.difi.no/api/json/brreg/enhetsregisteret?query=Merisma%20Development%20AS'

	def sync():
	for _ in xrange(50):

reite / gist:7560585

Created November 20, 2013 09:53

	root 2907 0.0 0.0 22376 1520 ? S Oct28 0:00 /usr/lib/ghc/lib/runghc -f /usr/lib/ghc/bin/ghc -i=/cube/cube/src -package-db=/cube/cube/cabal-dev/packages-7.6.2.conf /cube/cube/src/Server.hs
	root 2908 5.1 37.0 1113172 626432 ? Sl Oct28 1688:32 /usr/lib/ghc/lib/ghc -B/usr/lib/ghc -ignore-dot-ghci -x hs -i=/cube/cube/src -package-db=/cube/cube/cabal-dev/packages-7.6.2.conf -e :set prog "/cube/cube/src/Server.hs" -e :main [] /cube/cube/src/Server.hs