From 708459e93b5000ce9b5b7cb7401fbb5a7e599441 Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Sun, 6 Jun 2004 10:11:10 +0000
Subject: [PATCH] *** empty log message ***

---
 src/GF/Data/Operations.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/GF/Data/Operations.hs b/src/GF/Data/Operations.hs
index 15b6d5d82..f348b768f 100644
--- a/src/GF/Data/Operations.hs
+++ b/src/GF/Data/Operations.hs
@@ -65,7 +65,8 @@ repeatUntil :: (a -> Bool) -> (a -> a) -> a -> a
 repeatUntil cond f a = if cond a then a else repeatUntil cond f (f a)
 
 okError :: Err a -> a
-okError = err (error "no result Ok") id
+-- okError = err (error "no result Ok") id
+okError = err (error . ("Bad result occurred" ++++)) id
 
 isNotError :: Err a -> Bool
 isNotError = err (const False) (const True)