aboutsummaryrefslogtreecommitdiff
path: root/html-test/tests/HiddenInstances.hs
diff options
context:
space:
mode:
authorSimon Hengel <sol@typeful.net>2012-10-15 10:34:28 +0200
committerSimon Hengel <sol@typeful.net>2012-10-15 15:46:18 +0200
commit958d64d77572c47d249965d7146ac17a23de806d (patch)
treeb3cf49a9c6202b50d618df9270e24d28f5ecae50 /html-test/tests/HiddenInstances.hs
parent943c5b7880cbfa8c90a0776dd539ae1e89f46d35 (diff)
Move HTML tests to directory /html-test/
Diffstat (limited to 'html-test/tests/HiddenInstances.hs')
-rw-r--r--html-test/tests/HiddenInstances.hs35
1 files changed, 35 insertions, 0 deletions
diff --git a/html-test/tests/HiddenInstances.hs b/html-test/tests/HiddenInstances.hs
new file mode 100644
index 00000000..99a6c2fd
--- /dev/null
+++ b/html-test/tests/HiddenInstances.hs
@@ -0,0 +1,35 @@
+-- http://trac.haskell.org/haddock/ticket/37
+module HiddenInstances (VisibleClass, VisibleData) where
+
+-- | Should be visible
+class VisibleClass a
+
+-- | Should *not* be visible
+class HiddenClass a
+
+-- | Should *not* be visible
+data HiddenData = HiddenData
+
+-- | Should be visible
+data VisibleData = VisibleData
+
+-- | Should be visible
+instance VisibleClass Int
+
+-- | Should be visible
+instance VisibleClass VisibleData
+
+-- | Should be visible
+instance Num VisibleData
+
+-- | Should *not* be visible
+instance VisibleClass HiddenData
+
+-- | Should *not* be visible
+instance HiddenClass Int
+
+-- | Should *not* be visible
+instance HiddenClass VisibleData
+
+-- | Should *not* be visible
+instance HiddenClass HiddenData