From ef39b78bcdb7a5e4be6c709e1338fd7afc6d34bd Mon Sep 17 00:00:00 2001 From: Alec Theriault Date: Thu, 10 Jan 2019 14:56:32 -0800 Subject: [PATCH] Accept new output `GHC.Maybe` -> `Data.Maybe` Since 53874834b779ad0dfbcde6650069c37926da1b79 in GHC, "GHC.Maybe" is marked as `not-home`. That changes around some test output. --- html-test/ref/Bug548.html | 4 +- html-test/ref/ConstructorPatternExport.html | 4 +- html-test/ref/Hash.html | 8 +-- html-test/ref/Instances.html | 78 ++++++++++----------- html-test/ref/PromotedTypes.html | 6 +- html-test/ref/Test.html | 4 +- 6 files changed, 52 insertions(+), 52 deletions(-) diff --git a/html-test/ref/Bug548.html b/html-test/ref/Bug548.html index 1a906cc385..cff64ca2d0 100644 --- a/html-test/ref/Bug548.html +++ b/html-test/ref/Bug548.html @@ -533,7 +533,7 @@ >S1 ('MetaSel (' ('Just "unwrapArrow") 'NoSourceUnpackednessS1 ('MetaSel (' ('Just "unwrapArrow") 'NoSourceUnpackednessMyGADTCons :: a -> Int -> MyGADT ( -> MyGADT (Maybe String +> \ No newline at end of file diff --git a/html-test/ref/Hash.html b/html-test/ref/Hash.html index b66915c64d..65b2037b3c 100644 --- a/html-test/ref/Hash.html +++ b/html-test/ref/Hash.html @@ -121,7 +121,7 @@ >Hash key => key -> IO ( (Maybe val)
  • Hash key => key -> IO ( (Maybe val) #

    Looks up a key in the hash table, returns Just val if the key was found, or Nothing otherwise.

    Foo Maybe

    foo :: :: Maybe Int -> a -> -> a -> Maybe a #

    foo' :: :: Maybe ( (Maybe a) -> Int -> -> Maybe ( (Maybe Int Bar Maybe Bool

    bar :: :: Maybe Bool -> -> Maybe Bool

    bar' :: :: Maybe ( (Maybe Bool) -> ) -> Maybe ( (Maybe ( (Maybe b)) #

    bar0 :: ( :: (Maybe Bool, , Maybe Bool) -> () -> (Maybe b, b, Maybe c) #

    bar1 :: ( :: (Maybe Bool, , Maybe Bool) -> () -> (Maybe b, b, Maybe c) # Bar Maybe [a]

    bar :: :: Maybe [a] -> [a] -> Maybe Bool

    bar' :: :: Maybe ( (Maybe [a]) -> [a]) -> Maybe ( (Maybe ( (Maybe b)) #

    bar0 :: ( :: (Maybe [a], [a], Maybe [a]) -> ( [a]) -> (Maybe b, b, Maybe c) #

    bar1 :: ( :: (Maybe [a], [a], Maybe [a]) -> ( [a]) -> (Maybe b, b, Maybe c) #Cons :: :: Maybe h -> PatternRevCons :: :: Maybe h -> RevPattern +> \ No newline at end of file diff --git a/html-test/ref/Test.html b/html-test/ref/Test.html index c1d6395677..b76622e7dd 100644 --- a/html-test/ref/Test.html +++ b/html-test/ref/Test.html @@ -173,7 +173,7 @@ >A Int ( (Maybe FloatA Int ( (Maybe Float