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
