diff options
| author | peb <unknown> | 2004-06-06 10:11:10 +0000 |
|---|---|---|
| committer | peb <unknown> | 2004-06-06 10:11:10 +0000 |
| commit | c10aa3b696f4d934072792a9427b9c511e9dc8fe (patch) | |
| tree | 8a8cbe14f0a59168ef257133b5c93c5ac811efe6 /src/GF/Data/Operations.hs | |
| parent | e78e5a6af7d92a2596d587588b6fabc03618e8d3 (diff) | |
*** empty log message ***
Diffstat (limited to 'src/GF/Data/Operations.hs')
| -rw-r--r-- | src/GF/Data/Operations.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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) |