Move comment out of haddocks.

2015-05-15 10:37:18 +10:00 · 2015-05-15 10:37:18 +10:00 · d1b904372d
commit d1b904372d
parent 1e9a5eedb9
1 changed files with 2 additions and 3 deletions
--- a/servant/src/Servant/Utils/Links.hs
+++ b/servant/src/Servant/Utils/Links.hs
@ -137,10 +137,9 @@ data Link = Link
  } deriving Show

 -- | If either a or b produce an empty constraint, produce an empty constraint.
--
-- This works because of:
-- https://ghc.haskell.org/trac/ghc/wiki/NewAxioms/CoincidentOverlap
 type family Or (a :: Constraint) (b :: Constraint) :: Constraint where
+    -- This works because of:
+    -- https://ghc.haskell.org/trac/ghc/wiki/NewAxioms/CoincidentOverlap
    Or () b       = ()
    Or a ()       = ()