Converted GF/Source/*.hs to Unix line endings, to be able to see what happens when I regenerated the files.

1 files changed, 26 insertions, 26 deletions

diff --git a/src/GF/Source/ErrM.hs b/src/GF/Source/ErrM.hs
index addd22f69..63840758e 100644
--- a/src/GF/Source/ErrM.hs
+++ b/src/GF/Source/ErrM.hs
@@ -1,26 +1,26 @@
--- 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

+-- 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