{-# LANGUAGE RankNTypes, KindSignatures, MultiParamTypeClasses, FunctionalDependencies #-}
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 () )
ey0jIExBTkdVQUdFIFJhbmtOVHlwZXMsIEtpbmRTaWduYXR1cmVzLCBNdWx0aVBhcmFtVHlwZUNsYXNzZXMsIEZ1bmN0aW9uYWxEZXBlbmRlbmNpZXMgIy19Cgptb2R1bGUgVGVzdCB3aGVyZSAKCmltcG9ydCBQcmVsdWRlIGhpZGluZyAoZGl2KQoKY2xhc3MgTW9uYWRXaWRnZXQgdCAobSA6OiAqIC0+ICopIHwgbSAtPiB0IAoKZGl2IDo6IGZvcmFsbCB0IG0gYSAuIE1vbmFkV2lkZ2V0IHQgbSA9PiBtIGEgLT4gbSBhCmRpdiA9ICh1bmRlZmluZWQgOjogZm9yYWxsIHQgbSBhIC4gTW9uYWRXaWRnZXQgdCBtID0+IG0gYSAtPiBtIGEpCgphcHAgOjogZm9yYWxsIHQgbSAuIE1vbmFkV2lkZ2V0IHQgbSA9PiBtICgpCmFwcCA9IChkaXYgKHVuZGVmaW5lZCA6OiBmb3JhbGwgdCBtIC4gTW9uYWRXaWRnZXQgdCBtID0+IG0gKCkpCiAgICAgICAgOjogZm9yYWxsIHQgbSAuIE1vbmFkV2lkZ2V0IHQgbSA9PiBtICgpICk=
[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.