From 20544fa526a491a61f256ec25400a7aef85382ad Mon Sep 17 00:00:00 2001 From: jgotoh <18658140+jgotoh@users.noreply.github.com> Date: Thu, 11 Apr 2024 12:42:46 +0200 Subject: [PATCH] Fix NubList doctest examples --- cabal-install/src/Distribution/Client/Utils/Parsec.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/cabal-install/src/Distribution/Client/Utils/Parsec.hs b/cabal-install/src/Distribution/Client/Utils/Parsec.hs index 3e3bc0c918e..9c92fa3a786 100644 --- a/cabal-install/src/Distribution/Client/Utils/Parsec.hs +++ b/cabal-install/src/Distribution/Client/Utils/Parsec.hs @@ -159,10 +159,11 @@ newtype NubList' sep b a = NubList' {_getNubList :: NubList a} -- alaNubList VCat :: NubList a -> NubList' VCat (Identity a) a -- -- >>> :t alaNubList' FSep Token --- alaNubList' FSep Token :: NubList String -> NubList' FSep Token String +-- alaNubList' FSep Token +-- :: NubList String -> NubList' FSep Token String -- -- >>> unpack' (alaNubList' FSep Token) <$> eitherParsec "foo bar foo" --- Right (toNubList ["bar","foo"]) +-- Right ["foo","bar"] alaNubList :: sep -> NubList a -> NubList' sep (Identity a) a alaNubList _ = NubList'