Revision b1c772fd src/Ganeti/BasicTypes.hs
b/src/Ganeti/BasicTypes.hs | ||
---|---|---|
32 | 32 |
, isBad |
33 | 33 |
, eitherToResult |
34 | 34 |
, annotateResult |
35 |
, iterateOk |
|
35 | 36 |
, select |
36 | 37 |
, LookupResult(..) |
37 | 38 |
, MatchPriority(..) |
... | ... | |
138 | 139 |
annotateResult owner (Bad s) = Bad $ owner ++ ": " ++ s |
139 | 140 |
annotateResult _ v = v |
140 | 141 |
|
142 |
-- | Iterate while Ok. |
|
143 |
iterateOk :: (a -> GenericResult b a) -> a -> [a] |
|
144 |
iterateOk f a = genericResult (const []) ((:) a . iterateOk f) (f a) |
|
145 |
|
|
141 | 146 |
-- * Misc functionality |
142 | 147 |
|
143 | 148 |
-- | Return the first result with a True condition, or the default otherwise. |
Also available in: Unified diff