Add hyperlinks to PDF/HTML documentation; closes #17342
[ghc.git] / testsuite / tests / typecheck / should_compile / T12797.hs
1 {-# LANGUAGE NoMonomorphismRestriction #-}
2 {-# LANGUAGE TypeFamilies #-}
3 {-# LANGUAGE DataKinds #-}
4 {-# LANGUAGE ExtendedDefaultRules #-}
5
6 module T12797 where
7
8 import Prelude
9 import Control.Monad.IO.Class
10 import Data.Kind (Type)
11
12 type family FuncArg (m :: (Type -> Type)) :: Maybe Type
13
14 test2 :: (MonadIO m, FuncArg m ~ 'Nothing) => m ()
15 test2 = liftIO $ print 6
16