Commit 7245b3e4 authored by eir@cis.upenn.edu's avatar eir@cis.upenn.edu Committed by Krzysztof Gogolewski
Browse files

Added test for #7667.

parent 081dd696
{-# LANGUAGE TemplateHaskell, TypeOperators #-}
module T7667 where
import Language.Haskell.TH
$( return [ TySynD (mkName "+") [PlainTV (mkName "a"), PlainTV (mkName "b")]
(AppT (AppT (ConT ''Either) (VarT $ mkName "a")) (VarT $ mkName "b")) ] )
\ No newline at end of file
......@@ -300,3 +300,4 @@ test('T4128', normal, compile, ['-v0'])
test('T6062', normal, compile, ['-v0'])
test('T4364', normal, compile, ['-v0'])
test('T8412', normal, compile_fail, ['-v0'])
test('T7667', normal, compile, ['-v0'])
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment