LGTM, thanks On Wed, 17 Jun 2015 at 14:53 'Lisa Velden' via ganeti-devel < [email protected]> wrote:
> 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 > >
