diff --git a/Ganeti/HTools/Types.hs b/Ganeti/HTools/Types.hs
index dd15fb60867435093e87f700da59f23f55676585..fe27287870b4137de14efd706be35792559c1503 100644
--- a/Ganeti/HTools/Types.hs
+++ b/Ganeti/HTools/Types.hs
@@ -67,7 +67,7 @@ type Weight = Double
 data DynUtil = DynUtil
     { cpuWeight :: Weight -- ^ Standardised CPU usage
     , memWeight :: Weight -- ^ Standardised memory load
-    , dskWeight :: Weight -- ^ Standardised disk I/O usage
+    , dskWeight :: Weight -- ^ Standardised disk I\/O usage
     , netWeight :: Weight -- ^ Standardised network usage
     } deriving (Show)
 
diff --git a/Ganeti/Jobs.hs b/Ganeti/Jobs.hs
index 06f9330a7f4870985421c61c606f301ee2855c5e..df827538b4f566f0566cbdcec6a83d6ca2f2732a 100644
--- a/Ganeti/Jobs.hs
+++ b/Ganeti/Jobs.hs
@@ -31,7 +31,7 @@ import Text.JSON (readJSON, showJSON, JSON)
 import qualified Text.JSON as J
 
 -- | The JobStatus data type. Note that this is ordered especially
--- such that greater/lesser comparison on values of this type makes
+-- such that greater\/lesser comparison on values of this type makes
 -- sense.
 data JobStatus = JobQueued
                | JobWaitLock