Added the beginnings of GFCC to JavaScript conversion.

This commit is contained in:
bringert
2006-11-30 22:50:25 +00:00
parent c2ecc9d554
commit ba13ff08d2
13 changed files with 2001 additions and 3 deletions

16
src/GF/JavaScript/ErrM.hs Normal file
View File

@@ -0,0 +1,16 @@
-- BNF Converter: Error Monad
-- Copyright (C) 2004 Author: Aarne Ranta
-- This file comes with NO WARRANTY and may be used FOR ANY PURPOSE.
module GF.JavaScript.ErrM where
-- the Error monad: like Maybe type with error msgs
data Err a = Ok a | Bad String
deriving (Read, Show, Eq)
instance Monad Err where
return = Ok
fail = Bad
Ok a >>= f = f a
Bad s >>= f = Bad s