diff --git a/hbal.hs b/hbal.hs
index 788dc9a026e9898cf205c7a8757e282cafbf7a7a..353bf55b071b89cea0c29e5cc6389126bb28d244 100644
--- a/hbal.hs
+++ b/hbal.hs
@@ -72,7 +72,7 @@ iterateDepth :: Cluster.Table    -- ^ The starting table
              -> Int              -- ^ Max node name len
              -> Int              -- ^ Max instance name len
              -> [[String]]       -- ^ Current command list
-             -> Bool             -- ^ Wheter to be silent
+             -> Bool             -- ^ Whether to be silent
              -> Cluster.Score    -- ^ Score at which to stop
              -> IO (Cluster.Table, [[String]]) -- ^ The resulting table and
                                                -- commands