Skip to content

Commit 1a8fa2c

Browse files
committed
test: update forall
1 parent 4f4490b commit 1a8fa2c

File tree

4 files changed

+12
-23
lines changed

4 files changed

+12
-23
lines changed

plugins/hls-eval-plugin/test/testdata/T21.expected.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,6 +11,6 @@ fun _ _ _ = ()
1111

1212
-- >>> :type fun
1313
-- fun
14-
-- :: forall k1 (k2 :: Nat) (n :: Nat) (a :: k1).
14+
-- :: forall {k1} {k2 :: Nat} {n :: Nat} {a :: k1}.
1515
-- (KnownNat k2, KnownNat n, Typeable a) =>
1616
-- Proxy k2 -> Proxy n -> Proxy a -> ()

plugins/hls-eval-plugin/test/testdata/T23.expected.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,6 @@ f :: forall k n a. (KnownNat k, KnownNat n, Typeable a)
1010
f _ _ _ = ()
1111

1212
-- >>> :type f
13-
-- f :: forall k1 (k2 :: Nat) (n :: Nat) (a :: k1).
13+
-- f :: forall {k1} {k2 :: Nat} {n :: Nat} {a :: k1}.
1414
-- (KnownNat k2, KnownNat n, Typeable a) =>
1515
-- Proxy k2 -> Proxy n -> Proxy a -> ()

plugins/hls-eval-plugin/test/testdata/TFlags.expected.hs

Lines changed: 6 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -51,14 +51,14 @@ It still works
5151

5252
{- -fprint-* families
5353
54-
>>> import Data.Proxy
55-
>>> :set -XPolyKinds
56-
>>> :t Proxy
57-
Proxy :: forall k (t :: k). Proxy t
54+
>>> :t id
55+
id :: a -> a
56+
5857
5958
>>> :set -fprint-explicit-foralls
60-
>>> :t Proxy
61-
Proxy :: forall {k} {t :: k}. Proxy t
59+
>>> :t id
60+
id :: forall {a}. a -> a
61+
6262
-}
6363

6464
{- Invalid option/flags are reported, but valid ones will be reflected
@@ -68,9 +68,4 @@ Proxy :: forall {k} {t :: k}. Proxy t
6868
-XDatatypeContexts is deprecated: It was widely considered a misfeature, and has been removed from the Haskell language.
6969
Some flags have not been recognized: -XAbsent, -XWrong, -fprint-nothing-at-all
7070
71-
Still, Rank2Types is enabled, as in GHCi:
72-
73-
>>> f = const 42 :: (forall x. x) -> Int
74-
>>> f undefined
75-
42
7671
-}

plugins/hls-eval-plugin/test/testdata/TFlags.hs

Lines changed: 4 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -47,22 +47,16 @@ It still works
4747

4848
{- -fprint-* families
4949
50-
>>> import Data.Proxy
51-
>>> :set -XPolyKinds
52-
>>> :t Proxy
53-
Proxy :: forall k (t :: k). Proxy t
50+
>>> :t id
51+
5452
5553
>>> :set -fprint-explicit-foralls
56-
>>> :t Proxy
57-
Proxy :: forall {k} {t :: k}. Proxy t
54+
>>> :t id
55+
5856
-}
5957

6058
{- Invalid option/flags are reported, but valid ones will be reflected
6159
6260
>>> :set -XRank2Types -XAbsent -XDatatypeContexts -XWrong -fprint-nothing-at-all
6361
64-
Still, Rank2Types is enabled, as in GHCi:
65-
66-
>>> f = const 42 :: (forall x. x) -> Int
67-
>>> f undefined
6862
-}

0 commit comments

Comments
 (0)