aboutsummaryrefslogtreecommitdiff
path: root/html-test/src
diff options
context:
space:
mode:
authorKrzysztof Gogolewski <krzysztof.gogolewski@tweag.io>2020-12-16 20:03:14 +0100
committerGitHub <noreply@github.com>2020-12-16 20:03:14 +0100
commitb4b4d896d2d68d6c48e7db7bfe95c185ca0709cb (patch)
tree7831f2cdb6cb4e65a7761f8f61d341cb1e6c31f4 /html-test/src
parent059acb11d6134ee0d896bcf73c870958557a3909 (diff)
Display linear/multiplicity arrows correctly (#1238)
Previously we were ignoring multiplicity and displayed a %1 -> b as a -> b.
Diffstat (limited to 'html-test/src')
-rw-r--r--html-test/src/LinearTypes.hs14
1 files changed, 14 insertions, 0 deletions
diff --git a/html-test/src/LinearTypes.hs b/html-test/src/LinearTypes.hs
new file mode 100644
index 00000000..cb4eb138
--- /dev/null
+++ b/html-test/src/LinearTypes.hs
@@ -0,0 +1,14 @@
+{-# LANGUAGE LinearTypes #-}
+module LinearTypes where
+
+-- | Does something unrestricted.
+unrestricted :: a -> b
+unrestricted = undefined
+
+-- | Does something linear.
+linear :: a %1 -> b
+linear = linear
+
+-- | Does something polymorphic.
+poly :: a %m -> b
+poly = poly