testsuite/tests/haddock/should_compile_flag_haddock/haddockA026.hs


1
2
3
4
5
6
7
8

{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}

module ShouldCompile where

test :: (Eq a) => [a] -- ^ doc1
               -> forall b . [b] {-^ doc2 -}
               -> [a] -- ^ doc3
test xs ys = xs