diff options
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T18399.hs')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T18399.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T18399.hs b/testsuite/tests/simplCore/should_compile/T18399.hs new file mode 100644 index 0000000000..68fb2608d4 --- /dev/null +++ b/testsuite/tests/simplCore/should_compile/T18399.hs @@ -0,0 +1,5 @@ +module Bug where + +f :: p b d -> (a -> b) -> (c -> d) -> p a c -> p b d +{-# INLINE f #-} +f = const . const . const |