[commit: ghc] wip/T10137: CmmSwitch: Make haddock happier (8bfea7a)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T10137
Link       : http://ghc.haskell.org/trac/ghc/changeset/8bfea7a949b815ddbf00102e94ca2535de3a93f2/ghc

>---------------------------------------------------------------

commit 8bfea7a949b815ddbf00102e94ca2535de3a93f2
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Mar 17 13:06:25 2015 +0100

    CmmSwitch: Make haddock happier


>---------------------------------------------------------------

8bfea7a949b815ddbf00102e94ca2535de3a93f2
 compiler/cmm/CmmNode.hs   | 4 ++--
 compiler/cmm/CmmSwitch.hs | 8 ++++----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/compiler/cmm/CmmNode.hs b/compiler/cmm/CmmNode.hs
index 3bdc70f..45538d3 100644
--- a/compiler/cmm/CmmNode.hs
+++ b/compiler/cmm/CmmNode.hs
@@ -91,8 +91,8 @@ data CmmNode e x where
   } -> CmmNode O C
 
   CmmSwitch
-    :: CmmExpr -- ^ Scrutinee, of some integral type
-    -> SwitchTargets -- ^ Cases. See [Note SwitchTargets]
+    :: CmmExpr       -- Scrutinee, of some integral type
+    -> SwitchTargets -- Cases. See [Note SwitchTargets]
     -> CmmNode O C
 
   CmmCall :: {                -- A native call or tail call
diff --git a/compiler/cmm/CmmSwitch.hs b/compiler/cmm/CmmSwitch.hs
index d91d693..2fd9ef5 100644
--- a/compiler/cmm/CmmSwitch.hs
+++ b/compiler/cmm/CmmSwitch.hs
@@ -91,10 +91,10 @@ minJumpTableOffset = 2
 -- See Note [SwitchTargets]
 data SwitchTargets =
     SwitchTargets
-        Bool                       -- ^ Signed values
-        (Integer, Integer)         -- ^ Range
-        (Maybe Label)              -- ^ Default value
-        (M.Map Integer Label)      -- ^ The branches
+        Bool                       -- Signed values
+        (Integer, Integer)         -- Range
+        (Maybe Label)              -- Default value
+        (M.Map Integer Label)      -- The branches
     deriving (Show, Eq)
 
 -- mkSwitchTargets normalises the map a bit: