Add support for classic queries

[ganeti-local] / htools / Ganeti / Hash.hs

diff --git a/htools/Ganeti/Hash.hs b/htools/Ganeti/Hash.hs
index 56d6601..1b0b4f6 100644 (file)
--- a/htools/Ganeti/Hash.hs
+++ b/htools/Ganeti/Hash.hs
@@ -47,7 +47,7 @@ stringToWord8 = B.unpack . encodeUtf8 . T.pack
 
 -- | Converts a list of bytes to a string.
 word8ToString :: HashKey -> String
-word8ToString = concat . map (printf "%02x")
+word8ToString = concatMap (printf "%02x")
 
 -- | Computes the HMAC for a given key/test and salt.
 computeMac :: HashKey -> Maybe String -> String -> String