{-# LANGUAGE RankNTypes, KindSignatures, MultiParamTypeClasses, FunctionalDependencies #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
module Test where
class MonadWidget t (m :: * -> *) | m -> t
-- div :: forall t m a . MonadWidget t m => m a -> m a
div = (undefined :: forall t m a
. MonadWidget t m
=> m a
-> m a
)
-- app :: forall t m . MonadWidget t m => m ()
app
= (div (undefined :: forall t m
. MonadWidget t m
=> m
()) :: forall t m . MonadWidget t m => m () )
ey0jIExBTkdVQUdFIFJhbmtOVHlwZXMsIEtpbmRTaWduYXR1cmVzLCBNdWx0aVBhcmFtVHlwZUNsYXNzZXMsIEZ1bmN0aW9uYWxEZXBlbmRlbmNpZXMgIy19CnstIyBMQU5HVUFHRSBOb01vbm9tb3JwaGlzbVJlc3RyaWN0aW9uICMtfQoKbW9kdWxlIFRlc3Qgd2hlcmUgCgppbXBvcnQgUHJlbHVkZSBoaWRpbmcgKGRpdikKCmNsYXNzIE1vbmFkV2lkZ2V0IHQgKG0gOjogKiAtPiAqKSB8IG0gLT4gdCAKCi0tIGRpdiA6OiBmb3JhbGwgdCBtIGEgLiBNb25hZFdpZGdldCB0IG0gPT4gbSBhIC0+IG0gYQpkaXYgPSAodW5kZWZpbmVkIDo6IGZvcmFsbCB0IG0gYSAuIE1vbmFkV2lkZ2V0IHQgbSA9PiBtIGEgLT4gbSBhKQoKLS0gYXBwIDo6IGZvcmFsbCB0IG0gLiBNb25hZFdpZGdldCB0IG0gPT4gbSAoKQphcHAgPSAoZGl2ICh1bmRlZmluZWQgOjogZm9yYWxsIHQgbSAuIE1vbmFkV2lkZ2V0IHQgbSA9PiBtICgpKQogICAgICAgIDo6IGZvcmFsbCB0IG0gLiBNb25hZFdpZGdldCB0IG0gPT4gbSAoKSAp
[1 of 1] Compiling Test ( prog.hs, prog.o )
Warning: output was redirected with -o, but no output will be generated
because there is no Main module.