From 3ed46bb75fe39443a1a1f39c33fac8cff2d88070 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Wed, 19 May 2010 15:28:26 +0200
Subject: [PATCH] Fix some haddock comments
---
Ganeti/HTools/Node.hs | 4 ++--
hspace.hs | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/Ganeti/HTools/Node.hs b/Ganeti/HTools/Node.hs
index 8f19a55e0..bc99df58a 100644
--- a/Ganeti/HTools/Node.hs
+++ b/Ganeti/HTools/Node.hs
@@ -210,11 +210,11 @@ create name_init mem_t_init mem_n_init mem_f_init
, pTags = Map.empty
}
--- | Conversion formula from mDsk/tDsk to loDsk
+-- | Conversion formula from mDsk\/tDsk to loDsk
mDskToloDsk :: Double -> Double -> Int
mDskToloDsk mval tdsk = floor (mval * tdsk)
--- | Conversion formula from mCpu/tCpu to hiCpu
+-- | Conversion formula from mCpu\/tCpu to hiCpu
mCpuTohiCpu :: Double -> Double -> Int
mCpuTohiCpu mval tcpu = floor (mval * tcpu)
diff --git a/hspace.hs b/hspace.hs
index 2b106ef80..b6f5f4f58 100644
--- a/hspace.hs
+++ b/hspace.hs
@@ -212,7 +212,7 @@ ensureQuoted v = if not (all (\c -> (isAlphaNum c || c == '.')) v)
then '\'':v ++ "'"
else v
--- | Format a list of key/values as a shell fragment
+-- | Format a list of key\/values as a shell fragment
printKeys :: [(String, String)] -> IO ()
printKeys = mapM_ (\(k, v) ->
printf "HTS_%s=%s\n" (map toUpper k) (ensureQuoted v))
--
GitLab