diff options
Diffstat (limited to 'src')
| -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) |