markhibberd markhibberd

markhibberd / gist:3216675

Created July 31, 2012 12:22 — forked from tonymorris/gist:3216669

	import Data.Text
	import Control.Monad.Reader

	data ZResult a =
	ZVal a
	\| ZNotFound
	\| ZFail Text
	\| ZUnauth Text

	newtype ZResultT m a = ZResultT {