Fix small typo

[ganeti-local] / Ganeti / Jobs.hs

diff --git a/Ganeti/Jobs.hs b/Ganeti/Jobs.hs
index 06f9330..d8c9efa 100644 (file)
--- 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
@@ -62,4 +62,4 @@ instance JSON JobStatus where
                    J.Ok "success" -> J.Ok JobSuccess
                    J.Ok "canceled" -> J.Ok JobCanceled
                    J.Ok "error" -> J.Ok JobError
-                   _ -> J.Error ("Unkown job status " ++ show s)
+                   _ -> J.Error ("Unknown job status " ++ show s)