Skip to content

GitLab

Commit dcafadf3 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Improve test T7916

parent c1d4cd7e
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 0 deletions
testsuite/tests/polykinds/T7916.hs
View file @ dcafadf3
......@@ -7,3 +7,9 @@ f = id
-- g :: forall (m :: k -> *) (a :: k). m a -> m a
g x = f x
data M f = M (f Int)
-- Test that g :: forall (m :: k -> *) (a :: k). m a -> m a
g1 = g :: [Int] -> [Int]
g2 = g :: M [] -> M []
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