From c4ef235b23275f43da7f47ccf2eb72dfc6cc7451 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Fri, 16 Oct 2009 16:24:03 +0200
Subject: [PATCH] Fix two haddoc/happy docstring issues
---
Ganeti/HTools/Types.hs | 2 +-
Ganeti/Jobs.hs | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/Ganeti/HTools/Types.hs b/Ganeti/HTools/Types.hs
index dd15fb608..fe2728787 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 06f9330a7..df827538b 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
--
GitLab