aboutsummaryrefslogtreecommitdiff
path: root/html-test/src
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2015-12-19 17:38:54 +0100
committerBen Gamari <ben@smart-cactus.org>2015-12-20 01:14:52 +0100
commitb5ab70a092e4a801030cf01f87378217d4c87343 (patch)
treea764b75fdad318d0ef576e1c885d93adcb4af1c2 /html-test/src
parent19692aab1913730fc10ffda515b77db7308bcf11 (diff)
Add html-test for orphan instances output
Diffstat (limited to 'html-test/src')
-rw-r--r--html-test/src/OrphanInstances.hs7
-rw-r--r--html-test/src/OrphanInstancesClass.hs4
-rw-r--r--html-test/src/OrphanInstancesType.hs3
3 files changed, 14 insertions, 0 deletions
diff --git a/html-test/src/OrphanInstances.hs b/html-test/src/OrphanInstances.hs
new file mode 100644
index 00000000..a005c4a2
--- /dev/null
+++ b/html-test/src/OrphanInstances.hs
@@ -0,0 +1,7 @@
+module OrphanInstances where
+
+import OrphanInstancesType
+import OrphanInstancesClass
+
+instance AClass AnotherType where
+ aClass (AType n) = n
diff --git a/html-test/src/OrphanInstancesClass.hs b/html-test/src/OrphanInstancesClass.hs
new file mode 100644
index 00000000..4b51acfc
--- /dev/null
+++ b/html-test/src/OrphanInstancesClass.hs
@@ -0,0 +1,4 @@
+module OrphanInstancesClass (AClass(..)) where
+
+class AClass a where
+ aClass :: a -> Int
diff --git a/html-test/src/OrphanInstancesType.hs b/html-test/src/OrphanInstancesType.hs
new file mode 100644
index 00000000..b3c3145e
--- /dev/null
+++ b/html-test/src/OrphanInstancesType.hs
@@ -0,0 +1,3 @@
+module OrphanInstancesType (AType(..)) where
+
+data AType = AType Int