LGTM, thanks! On Mon, Aug 22, 2016 at 12:42 PM, 'Brian Foley' via ganeti-devel < [email protected]> wrote:
> No functional change. > > Signed-off-by: Brian Foley <[email protected]> > --- > src/Ganeti/HTools/Loader.hs | 2 +- > src/Ganeti/HTools/Tags.hs | 2 +- > 2 files changed, 2 insertions(+), 2 deletions(-) > > diff --git a/src/Ganeti/HTools/Loader.hs b/src/Ganeti/HTools/Loader.hs > index 3bb1466..181225b 100644 > --- a/src/Ganeti/HTools/Loader.hs > +++ b/src/Ganeti/HTools/Loader.hs > @@ -344,7 +344,7 @@ addBandwidthData ctags gl node = > | Set.member dst btags = Node.setBandwidthToLocation nd src > bndwdth > | otherwise = nd > in foldl update tnode bgraph > - where btagsFilter tags = Tags.getBandwidth ctags tags > + where btagsFilter = Tags.getBandwidth ctags > > -- | Initializer function that loads the data from a node and instance > -- list and massages it into the correct format. > diff --git a/src/Ganeti/HTools/Tags.hs b/src/Ganeti/HTools/Tags.hs > index 3166a57..94c4bad 100644 > --- a/src/Ganeti/HTools/Tags.hs > +++ b/src/Ganeti/HTools/Tags.hs > @@ -141,7 +141,7 @@ getBandwidthGraph ctags = > where parseInt (a, b, s) = case maybeRead s :: Maybe Int of > Just i -> Just (a, b, i) > Nothing -> Nothing > - listToTuple (a:b:c:[]) = Just (a, b, c) > + listToTuple [a, b, c] = Just (a, b, c) > listToTuple _ = Nothing > > -- | Maybe extract string after first occurence of ":" return > -- > 2.8.0.rc3.226.g39d4020 > >
