testsuite: Add testcase for #14670
[ghc.git] / testsuite / tests / rebindable / T14670.hs
1 {-# LANGUAGE RebindableSyntax #-}
2
3 module Lib where
4
5 import Prelude (IO)
6
7 pure = undefined
8
9 foo :: IO ()
10 foo = do
11 pure ()