Skip to content

Instantly share code, notes, and snippets.

@tonymorris

tonymorris/gist:3216669

Created July 31, 2012 12:21
Show Gist options
  • Save tonymorris/3216669 to your computer and use it in GitHub Desktop.
Save tonymorris/3216669 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
import Data.Text
import Control.Monad.Reader
data ZResult a =
ZVal a
| ZNotFound
| ZFail Text
| ZUnauth Text
newtype ZResultT m a = ZResultT {
runZResultT :: m (ZResult a)
}
type Mth a = ReaderT String (ZResultT IO) a
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment