From fa69bd8ab3c82a6c7e3358db42c96919f8ce4967 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 2 Oct 2008 14:11:41 +0000
Subject: Regenerate source GF parser from GF.cf. Now, when GF/Source/Makefile
 is used, no hand-hacking is needed.

---
 src/GF/Source/ErrM.hs | 26 --------------------------
 1 file changed, 26 deletions(-)
 delete mode 100644 src/GF/Source/ErrM.hs

(limited to 'src/GF/Source/ErrM.hs')

diff --git a/src/GF/Source/ErrM.hs b/src/GF/Source/ErrM.hs
deleted file mode 100644
index 63840758e..000000000
--- a/src/GF/Source/ErrM.hs
+++ /dev/null
@@ -1,26 +0,0 @@
--- 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.Source.ErrM where
-
--- the Error monad: like Maybe type with error msgs
-
-import Control.Monad (MonadPlus(..), liftM)
-
-data Err a = Ok a | Bad String
-  deriving (Read, Show, Eq, Ord)
-
-instance Monad Err where
-  return      = Ok
-  fail        = Bad
-  Ok a  >>= f = f a
-  Bad s >>= f = Bad s
-
-instance Functor Err where
-  fmap = liftM
-
-instance MonadPlus Err where
-  mzero = Bad "Err.mzero"
-  mplus (Bad _) y = y
-  mplus x       _ = x
-- 
cgit v1.2.3