diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-03-25 21:24:27 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-31 11:13:28 -0400 |
| commit | 0fe5175ac537c0ce2afe969ec82a0d1c73a4ae38 (patch) | |
| tree | da9e816a7d18be58e795b3c9dd07b87106ab82fc /testsuite/tests/simplCore | |
| parent | 2fcebb72d97edd1e630002bef89bc6982529e36f (diff) | |
| download | haskell-0fe5175ac537c0ce2afe969ec82a0d1c73a4ae38.tar.gz | |
EPA : Rename ApiAnn to EPAnn
Follow-up from !2418, see #19579
Updates haddock submodule
Diffstat (limited to 'testsuite/tests/simplCore')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T19360.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T19360.hs b/testsuite/tests/simplCore/should_compile/T19360.hs index 3998fb6d51..856da7cae7 100644 --- a/testsuite/tests/simplCore/should_compile/T19360.hs +++ b/testsuite/tests/simplCore/should_compile/T19360.hs @@ -8,7 +8,7 @@ import Data.Typeable (Typeable, cast) newtype SDoc = SDoc' (Bool -> Bool) -data ApiAnn = ApiAnn +data EpAnn = EpAnn showAstData :: D a => Bool -> a -> SDoc showAstData z = showAstData' @@ -16,7 +16,7 @@ showAstData z = showAstData' showAstData' :: D a => a -> SDoc showAstData' x = case cast x of - Just (a :: ApiAnn) -> + Just (a :: EpAnn) -> case z of True -> showAstData' a False -> SDoc' (oneShot (\_ -> False)) @@ -25,5 +25,5 @@ showAstData z = showAstData' class Typeable a => D a where gmapQr :: forall r. (forall d. D d => d -> r) -> a -> r -instance D ApiAnn where - gmapQr g ApiAnn = g ApiAnn +instance D EpAnn where + gmapQr g EpAnn = g EpAnn |