diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-02 09:29:35 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-02 09:29:35 +0100 |
| commit | ef943d8288ab24df4d036243a67fe5fb3c417ce5 (patch) | |
| tree | 5ec73b207af9b7aea787922af14c32853e707a77 /testsuite/tests | |
| parent | 12c8dafb6fb3f059bcc74e55691260af2ac7c7b8 (diff) | |
| download | haskell-ef943d8288ab24df4d036243a67fe5fb3c417ce5.tar.gz | |
Don't use qualified names in in binding positions
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/typecheck/should_run/T4809_IdentityT.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/typecheck/should_run/T4809_IdentityT.hs b/testsuite/tests/typecheck/should_run/T4809_IdentityT.hs index f030fc5b8d..879dada6d8 100644 --- a/testsuite/tests/typecheck/should_run/T4809_IdentityT.hs +++ b/testsuite/tests/typecheck/should_run/T4809_IdentityT.hs @@ -29,8 +29,8 @@ evalIdentityT = runIdentityT . HSX.unXMLGenT -- * HSX.XMLGenerator for IdentityT instance (Functor m, Monad m) => HSX.XMLGen (IdentityT m) where - type HSX.XML (IdentityT m) = XML - newtype HSX.Child (IdentityT m) = IChild { unIChild :: XML } + type XML (IdentityT m) = XML + newtype Child (IdentityT m) = IChild { unIChild :: XML } genElement n _attrs children = HSX.XMLGenT $ do children' <- HSX.unXMLGenT (fmap (map unIChild . concat) (sequence children)) return (Element n [] children') |