[commit: ghc] master: Fix haddock syntax (7b29b0b)

git at git.haskell.org git at git.haskell.org
Thu Dec 3 22:00:48 UTC 2015


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/7b29b0b1e8efac68fd4151cb5a44c4290a3e9d57/ghc

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

commit 7b29b0b1e8efac68fd4151cb5a44c4290a3e9d57
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Thu Dec 3 13:43:16 2015 -0500

    Fix haddock syntax
    
    Sadly we can't annotate the elements of a tuple


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

7b29b0b1e8efac68fd4151cb5a44c4290a3e9d57
 compiler/deSugar/Check.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/compiler/deSugar/Check.hs b/compiler/deSugar/Check.hs
index 8ca0b54..382112c 100644
--- a/compiler/deSugar/Check.hs
+++ b/compiler/deSugar/Check.hs
@@ -117,9 +117,14 @@ data ValSetAbs   -- Reprsents a set of value vector abstractions
   | Constraint [PmConstraint] ValSetAbs -- ^ Extend Delta
   | Cons ValAbs ValSetAbs               -- ^ map (ucon u) vs
 
-type PmResult = ( [[LPat Id]] -- ^ redundant clauses
-                , [[LPat Id]] -- ^ clauses with inaccessible rhs
-                , [([PmExpr], [ComplexEq])] ) -- ^ missing
+-- | Pattern check result
+--
+-- * redundant clauses
+-- * clauses with inaccessible RHS
+-- * missing
+type PmResult = ( [[LPat Id]]
+                , [[LPat Id]]
+                , [([PmExpr], [ComplexEq])] )
 
 {-
 %************************************************************************



More information about the ghc-commits mailing list