Commit ba1551ab authored by Petr Pudlak's avatar Petr Pudlak

Fix a few haddock comments

.. so that they're parsed correctly.
Signed-off-by: default avatarPetr Pudlak <pudlak@google.com>
Reviewed-by: default avatarKlaus Aehlig <aehlig@google.com>
parent 5fd08cb2
......@@ -112,7 +112,7 @@ mapMOf2 :: Over (->) (Compose (WrappedMonad m) g) s t a b
mapMOf2 k f = unwrapMonad . traverseOf2 k (WrapMonad . f)
-- | A helper lens over sets.
-- While a similar lens exists in the package (as @Lens' Set (Maybe ())@@),
-- While a similar lens exists in the package (as @Lens' Set (Maybe ())@),
-- it's available only in most recent versions.
-- And using @Bool@ instead of @Maybe ()@ is more convenient.
atSet :: (Ord a) => a -> Lens' (S.Set a) Bool
......
......@@ -71,8 +71,9 @@ getSecretOsParams = getOsParams "osparams_secret" "secret"
-- data structure containing all parameters and their visibility.
--
-- Example:
-- { "os-image": ["http://example.com/disk.img", "public"],
-- "os-password": ["mypassword", "secret"] }
--
-- > { "os-image": ["http://example.com/disk.img", "public"],
-- > "os-password": ["mypassword", "secret"] }
makeInstanceParams
:: JSObject JSValue -> JSObject JSValue -> JSObject JSValue -> JSValue
makeInstanceParams pub priv sec =
......
......@@ -354,7 +354,7 @@ instance Show LogicalVolume where
showsPrec _ (LogicalVolume g v) =
showString g . showString "/" . showString v
-- | Check the constraints for a VG/LV names (except the @/dev/@ check).
-- | Check the constraints for a VG/LV names (except the @\/dev\/@ check).
instance Validatable LogicalVolume where
validate (LogicalVolume g v) = do
let vgn = "Volume group name"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment