From be5b94d3334e60dd7e9702f789efd82464efa179 Mon Sep 17 00:00:00 2001 From: Alec Theriault Date: Thu, 10 Jan 2019 16:42:45 -0800 Subject: Accept new output `GHC.Maybe` -> `Data.Maybe` (#996) 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 1a906cc3..cff64ca2 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 b66915c6..65b2037b 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 c1d63956..b76622e7 100644 --- a/html-test/ref/Test.html +++ b/html-test/ref/Test.html @@ -173,7 +173,7 @@ >A Int ( (Maybe FloatA Int ( (Maybe Float