Signed-off-by: Lisa Velden <[email protected]>
---
src/Ganeti/Objects/Disk.hs | 2 +-
src/Ganeti/Types.hs | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/Ganeti/Objects/Disk.hs b/src/Ganeti/Objects/Disk.hs
index 84945a8..18ae20a 100644
--- a/src/Ganeti/Objects/Disk.hs
+++ b/src/Ganeti/Objects/Disk.hs
@@ -80,7 +80,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"
diff --git a/src/Ganeti/Types.hs b/src/Ganeti/Types.hs
index 24137c7..c9bcd8c 100644
--- a/src/Ganeti/Types.hs
+++ b/src/Ganeti/Types.hs
@@ -1013,8 +1013,8 @@ instance Monad Secret where
(Secret x) >>= f = f x
return = Secret
--- | We return "<redacted>" here to satisfy the idempotence of serialization
and
--- deserialization, although this will impact the meaningfulness of secret
+-- | We return "\<redacted\>" here to satisfy the idempotence of serialization
+-- and deserialization, although this will impact the meaningfulness of secret
-- parameters within configuration tests.
showSecretJSObject :: (JSON.JSON a) =>
[(String, a)] -> JSON.JSObject (Secret JSON.JSValue)
--
2.2.0.rc0.207.ga3a616c
