html-test/src/Bug7.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE MultiParamTypeClasses #-}
-- | This module caused a duplicate instance in the documentation for the Foo
-- type.
module Bug7  where

-- | The Foo datatype
data Foo = Foo

-- | The Bar class
class Bar x y

-- | Just one instance
instance Bar Foo Foo