1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 07:25:44 +03:00

Correct some haddocks.

This commit is contained in:
Rob Rix 2018-03-16 16:00:26 -04:00
parent bbb51588e5
commit 0b6dd8f126

View File

@ -101,10 +101,10 @@ toBool :: MonadValue value m => value -> m Bool
toBool v = ifthenelse v (pure True) (pure False)
forLoop :: (MonadEnvironment value m, MonadValue value m)
=> m value -- | Initial statement
-> m value -- | Condition
-> m value -- | Increment/stepper
-> m value -- | Body
=> m value -- ^ Initial statement
-> m value -- ^ Condition
-> m value -- ^ Increment/stepper
-> m value -- ^ Body
-> m value
forLoop initial cond step body = do
void initial