aboutsummaryrefslogtreecommitdiff
path: root/hypsrc-test
diff options
context:
space:
mode:
authorŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-07-02 13:33:34 +0200
committerŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-07-02 13:33:34 +0200
commit0ea2c4a892346d4fdd38c50cf234dbc5e23ac299 (patch)
treef998680ee1fb455350f57f8dc4e45b490ca0ae73 /hypsrc-test
parent28e93ceec440d0d1ed053bbf3c20e4bdcd6d5f4e (diff)
Add hyperlinker test case for checking type and type family declarations.
Diffstat (limited to 'hypsrc-test')
-rw-r--r--hypsrc-test/ref/src/Types.html937
-rw-r--r--hypsrc-test/src/Types.hs42
2 files changed, 979 insertions, 0 deletions
diff --git a/hypsrc-test/ref/src/Types.html b/hypsrc-test/ref/src/Types.html
new file mode 100644
index 00000000..bdb68ed6
--- /dev/null
+++ b/hypsrc-test/ref/src/Types.html
@@ -0,0 +1,937 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml"
+><head
+ ><link rel="stylesheet" type="text/css" href="style.css"
+ /><script type="text/javascript" src="highlight.js"
+ ></script
+ ></head
+ ><body
+ ><pre
+ ><span class="hs-pragma"
+ >{-# LANGUAGE TypeFamilies #-}</span
+ ><span class=""
+ >
+
+
+</span
+ ><span class="hs-keyword"
+ >module</span
+ ><span class=""
+ > </span
+ ><span class="hs-identifier"
+ >Types</span
+ ><span class=""
+ > </span
+ ><span class="hs-keyword"
+ >where</span
+ ><span class=""
+ >
+
+
+</span
+ ><span class="hs-keyword"
+ >data</span
+ ><span class=""
+ > </span
+ ><a name="Quux"
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier"
+ >Quux</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><a name="Bar"
+ ><a href="Types.html#Bar"
+ ><span class="hs-identifier"
+ >Bar</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >|</span
+ ><span class=""
+ > </span
+ ><a name="Baz"
+ ><a href="Types.html#Baz"
+ ><span class="hs-identifier"
+ >Baz</span
+ ></a
+ ></a
+ ><span class=""
+ >
+
+</span
+ ><span class="hs-keyword"
+ >newtype</span
+ ><span class=""
+ > </span
+ ><a name="Foo"
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier"
+ >Foo</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><a name="Foo"
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier"
+ >Foo</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ >
+
+</span
+ ><span class="hs-keyword"
+ >type</span
+ ><span class=""
+ > </span
+ ><a name="FooQuux"
+ ><a href="Types.html#FooQuux"
+ ><span class="hs-identifier"
+ >FooQuux</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class="hs-special"
+ >,</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ >
+</span
+ ><span class="hs-keyword"
+ >type</span
+ ><span class=""
+ > </span
+ ><a name="QuuxFoo"
+ ><a href="Types.html#QuuxFoo"
+ ><span class="hs-identifier"
+ >QuuxFoo</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class="hs-special"
+ >,</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ >
+
+
+</span
+ ><span class="hs-keyword"
+ >data</span
+ ><span class=""
+ > </span
+ ><span class="hs-keyword"
+ >family</span
+ ><span class=""
+ > </span
+ ><a name="Norf"
+ ><a href="Types.html#Norf"
+ ><span class="hs-identifier"
+ >Norf</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><a name="local-0"
+ ><a href="#local-0"
+ ><span class="hs-identifier"
+ >a</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><a name="local-0"
+ ><a href="#local-0"
+ ><span class="hs-identifier"
+ >b</span
+ ></a
+ ></a
+ ><span class=""
+ >
+
+</span
+ ><span class="hs-keyword"
+ >data</span
+ ><span class=""
+ > </span
+ ><span class="hs-keyword"
+ >instance</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Norf"
+ ><span class="hs-identifier hs-type"
+ >Norf</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><a name="NFQ"
+ ><a href="Types.html#NFQ"
+ ><span class="hs-identifier"
+ >NFQ</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class=""
+ >
+</span
+ ><span class="hs-keyword"
+ >data</span
+ ><span class=""
+ > </span
+ ><span class="hs-keyword"
+ >instance</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Norf"
+ ><span class="hs-identifier hs-type"
+ >Norf</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><a name="NQF"
+ ><a href="Types.html#NQF"
+ ><span class="hs-identifier"
+ >NQF</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class=""
+ >
+
+
+</span
+ ><span class="hs-keyword"
+ >type</span
+ ><span class=""
+ > </span
+ ><span class="hs-keyword"
+ >family</span
+ ><span class=""
+ > </span
+ ><a name="Norf%27"
+ ><a href="Types.html#Norf%27"
+ ><span class="hs-identifier"
+ >Norf'</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><a name="local-0"
+ ><a href="#local-0"
+ ><span class="hs-identifier"
+ >a</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><a name="local-0"
+ ><a href="#local-0"
+ ><span class="hs-identifier"
+ >b</span
+ ></a
+ ></a
+ ><span class=""
+ >
+
+</span
+ ><span class="hs-keyword"
+ >type</span
+ ><span class=""
+ > </span
+ ><span class="hs-keyword"
+ >instance</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Norf%27"
+ ><span class="hs-identifier hs-type"
+ >Norf'</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class="hs-special"
+ >,</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ >
+</span
+ ><span class="hs-keyword"
+ >type</span
+ ><span class=""
+ > </span
+ ><span class="hs-keyword"
+ >instance</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Norf%27"
+ ><span class="hs-identifier hs-type"
+ >Norf'</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class="hs-special"
+ >,</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ >
+
+
+</span
+ ><span class="hs-identifier"
+ >norf1</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >::</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Norf"
+ ><span class="hs-identifier hs-type"
+ >Norf</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >-&gt;</span
+ ><span class=""
+ > </span
+ ><span class="hs-identifier hs-type"
+ >Int</span
+ ><span class=""
+ >
+</span
+ ><a name="norf1"
+ ><a href="Types.html#norf1"
+ ><span class="hs-identifier"
+ >norf1</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#NFQ"
+ ><span class="hs-identifier hs-var"
+ >NFQ</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-var"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><span class="hs-special"
+ >)</span
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Bar"
+ ><span class="hs-identifier hs-var"
+ >Bar</span
+ ></a
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-number"
+ >0</span
+ ><span class=""
+ >
+</span
+ ><span class="hs-identifier"
+ >norf1</span
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#NFQ"
+ ><span class="hs-identifier hs-var"
+ >NFQ</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-var"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><span class="hs-special"
+ >)</span
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Baz"
+ ><span class="hs-identifier hs-var"
+ >Baz</span
+ ></a
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-number"
+ >1</span
+ ><span class=""
+ >
+
+</span
+ ><span class="hs-identifier"
+ >norf2</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >::</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Norf"
+ ><span class="hs-identifier hs-type"
+ >Norf</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >-&gt;</span
+ ><span class=""
+ > </span
+ ><span class="hs-identifier hs-type"
+ >Int</span
+ ><span class=""
+ >
+</span
+ ><a name="norf2"
+ ><a href="Types.html#norf2"
+ ><span class="hs-identifier"
+ >norf2</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#NQF"
+ ><span class="hs-identifier hs-var"
+ >NQF</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Bar"
+ ><span class="hs-identifier hs-var"
+ >Bar</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-var"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><span class="hs-special"
+ >)</span
+ ><span class="hs-special"
+ >)</span
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-number"
+ >0</span
+ ><span class=""
+ >
+</span
+ ><span class="hs-identifier"
+ >norf2</span
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#NQF"
+ ><span class="hs-identifier hs-var"
+ >NQF</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Baz"
+ ><span class="hs-identifier hs-var"
+ >Baz</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-var"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><span class="hs-special"
+ >)</span
+ ><span class="hs-special"
+ >)</span
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-number"
+ >1</span
+ ><span class=""
+ >
+
+
+</span
+ ><span class="hs-identifier"
+ >norf1'</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >::</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Norf%27"
+ ><span class="hs-identifier hs-type"
+ >Norf'</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >-&gt;</span
+ ><span class=""
+ > </span
+ ><span class="hs-identifier hs-type"
+ >Int</span
+ ><span class=""
+ >
+</span
+ ><a name="norf1%27"
+ ><a href="Types.html#norf1%27"
+ ><span class="hs-identifier"
+ >norf1'</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-var"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><span class="hs-special"
+ >)</span
+ ><span class="hs-special"
+ >,</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Bar"
+ ><span class="hs-identifier hs-var"
+ >Bar</span
+ ></a
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-number"
+ >0</span
+ ><span class=""
+ >
+</span
+ ><span class="hs-identifier"
+ >norf1'</span
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-var"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><span class="hs-special"
+ >)</span
+ ><span class="hs-special"
+ >,</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Baz"
+ ><span class="hs-identifier hs-var"
+ >Baz</span
+ ></a
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-number"
+ >1</span
+ ><span class=""
+ >
+
+</span
+ ><span class="hs-identifier"
+ >norf2'</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >::</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Norf%27"
+ ><span class="hs-identifier hs-type"
+ >Norf'</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Quux"
+ ><span class="hs-identifier hs-type"
+ >Quux</span
+ ></a
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-type"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >-&gt;</span
+ ><span class=""
+ > </span
+ ><span class="hs-identifier hs-type"
+ >Int</span
+ ><span class=""
+ >
+</span
+ ><a name="norf2%27"
+ ><a href="Types.html#norf2%27"
+ ><span class="hs-identifier"
+ >norf2'</span
+ ></a
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Bar"
+ ><span class="hs-identifier hs-var"
+ >Bar</span
+ ></a
+ ><span class="hs-special"
+ >,</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-var"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><span class="hs-special"
+ >)</span
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-number"
+ >0</span
+ ><span class=""
+ >
+</span
+ ><span class="hs-identifier"
+ >norf2'</span
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><a href="Types.html#Baz"
+ ><span class="hs-identifier hs-var"
+ >Baz</span
+ ></a
+ ><span class="hs-special"
+ >,</span
+ ><span class=""
+ > </span
+ ><a href="Types.html#Foo"
+ ><span class="hs-identifier hs-var"
+ >Foo</span
+ ></a
+ ><span class=""
+ > </span
+ ><span class="hs-special"
+ >(</span
+ ><span class="hs-special"
+ >)</span
+ ><span class="hs-special"
+ >)</span
+ ><span class=""
+ > </span
+ ><span class="hs-glyph"
+ >=</span
+ ><span class=""
+ > </span
+ ><span class="hs-number"
+ >1</span
+ ><span class=""
+ >
+</span
+ ></pre
+ ></body
+ ></html
+>
diff --git a/hypsrc-test/src/Types.hs b/hypsrc-test/src/Types.hs
new file mode 100644
index 00000000..b63a825b
--- /dev/null
+++ b/hypsrc-test/src/Types.hs
@@ -0,0 +1,42 @@
+{-# LANGUAGE TypeFamilies #-}
+
+
+module Types where
+
+
+data Quux = Bar | Baz
+
+newtype Foo = Foo ()
+
+type FooQuux = (Foo, Quux)
+type QuuxFoo = (Quux, Foo)
+
+
+data family Norf a b
+
+data instance Norf Foo Quux = NFQ Foo Quux
+data instance Norf Quux Foo = NQF Quux Foo
+
+
+type family Norf' a b
+
+type instance Norf' Foo Quux = (Foo, Quux)
+type instance Norf' Quux Foo = (Quux, Foo)
+
+
+norf1 :: Norf Foo Quux -> Int
+norf1 (NFQ (Foo ()) Bar) = 0
+norf1 (NFQ (Foo ()) Baz) = 1
+
+norf2 :: Norf Quux Foo -> Int
+norf2 (NQF Bar (Foo ())) = 0
+norf2 (NQF Baz (Foo ())) = 1
+
+
+norf1' :: Norf' Foo Quux -> Int
+norf1' (Foo (), Bar) = 0
+norf1' (Foo (), Baz) = 1
+
+norf2' :: Norf' Quux Foo -> Int
+norf2' (Bar, Foo ()) = 0
+norf2' (Baz, Foo ()) = 1