diff options
author | Simon Hengel <sol@typeful.net> | 2012-10-15 20:32:03 +0200 |
---|---|---|
committer | Simon Hengel <sol@typeful.net> | 2012-10-15 20:49:39 +0200 |
commit | 7e1fed4da8bb913d25f447afd1f1e485d428e37f (patch) | |
tree | 179a79201d11df7b27583f083d884753b1ee82e4 /html-test/src/TypeFamilies.hs | |
parent | a4fb9cb0a44101d858d69281a3ee0aa0dbf7ddda (diff) |
Move source files for HTML tests to html-test/src
Diffstat (limited to 'html-test/src/TypeFamilies.hs')
-rw-r--r-- | html-test/src/TypeFamilies.hs | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/html-test/src/TypeFamilies.hs b/html-test/src/TypeFamilies.hs new file mode 100644 index 00000000..561f95fd --- /dev/null +++ b/html-test/src/TypeFamilies.hs @@ -0,0 +1,28 @@ +{-# LANGUAGE TypeFamilies #-} + +module TypeFamilies where + +-- | Type family G +type family G a :: * + +-- | A class with an associated type +class A a where + -- | An associated type + data B a :: * -> * + -- | A method + f :: B a Int + +-- | Doc for family +type family F a + + +-- | Doc for G Int +type instance G Int = Bool +type instance G Float = Int + + +instance A Int where + data B Int x = Con x + f = Con 3 + +g = Con 5 |