diff options
author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2020-09-10 14:41:25 +0300 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-09-29 00:32:05 -0400 |
commit | 5830a12c46e7227c276a8a71213057595ee4fc04 (patch) | |
tree | 70eacf5713115640af3ef83cb393e6f1a19d5096 /testsuite/tests/linear/should_fail/LinearBottomMult.hs | |
parent | b31a3360e2ef12f3ec7eaf66b3600247c1eb36c3 (diff) | |
download | haskell-5830a12c46e7227c276a8a71213057595ee4fc04.tar.gz |
New linear types syntax: a %p -> b (#18459)
Implements GHC Proposal #356
Updates the haddock submodule.
Diffstat (limited to 'testsuite/tests/linear/should_fail/LinearBottomMult.hs')
-rw-r--r-- | testsuite/tests/linear/should_fail/LinearBottomMult.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/linear/should_fail/LinearBottomMult.hs b/testsuite/tests/linear/should_fail/LinearBottomMult.hs index 03bf8731a7..b3d00069fe 100644 --- a/testsuite/tests/linear/should_fail/LinearBottomMult.hs +++ b/testsuite/tests/linear/should_fail/LinearBottomMult.hs @@ -6,8 +6,8 @@ module LinearBottomMult where data Void data U a where U :: a -> U a -elim :: U a #-> () +elim :: U a %1 -> () elim (U _) = () -f :: a #-> () +f :: a %1 -> () f x = elim (U (\(a :: Void) -> case a of {})) |