diff --git a/htools/Ganeti/HTools/Program/Hcheck.hs b/htools/Ganeti/HTools/Program/Hcheck.hs
index b094bce1e9bbe304dbad831b698c26806c405cd4..faf5e6d0c300c8ac82c8b49731289af30e0a6b5b 100644
--- a/htools/Ganeti/HTools/Program/Hcheck.hs
+++ b/htools/Ganeti/HTools/Program/Hcheck.hs
@@ -81,7 +81,7 @@ data Phase = Initial
 data Level = GroupLvl
            | ClusterLvl
 
--- | Prefix for machine readable names
+-- | Prefix for machine readable names.
 htcPrefix :: String
 htcPrefix = "HCHECK"