Relax doctests

This commit is contained in:
Philipp Balzarek 2019-08-01 14:29:17 +02:00
parent 4f2170e7b8
commit 3b9171e303
2 changed files with 6 additions and 6 deletions

View File

@ -65,7 +65,7 @@ import qualified Data.Generics.Product as G
-- >>> total & field @"oops" .~ pure () -- >>> total & field @"oops" .~ pure ()
-- ... -- ...
-- ... error: -- ... error:
-- ... The type HKD User Last does not contain a field named 'oops'. -- ... The type HKD User Last does not contain a field named 'oops'.
-- ... -- ...
field field
:: forall field f structure inner :: forall field f structure inner
@ -91,8 +91,8 @@ field
-- >>> deconstruct ("Hello", True) ^. position @4 -- >>> deconstruct ("Hello", True) ^. position @4
-- ... -- ...
-- ... error: -- ... error:
-- ... The type HKD -- ... The type HKD
-- ... ([Char], Bool) f does not contain a field at position 4 -- ... ([Char], Bool) f does not contain a field at position 4
-- ... -- ...
position position
:: forall index f structure inner :: forall index f structure inner

View File

@ -75,14 +75,14 @@ instance (Generic shape, GFill f with '[] (Rep shape))
-- = User { name :: String, age :: Int, likesDogs :: Bool } -- = User { name :: String, age :: Int, likesDogs :: Bool }
-- deriving Generic -- deriving Generic
-- :} -- :}
-- --
-- >>> :{ -- >>> :{
-- test :: _ -- test :: _
-- test = build @User -- test = build @User
-- :} -- :}
-- ... -- ...
-- ... • Found type wildcard _ -- ... Found type wildcard ...
-- ... standing for f [Char] -> f Int -> f Bool -> HKD User f -- ... standing for ...f [Char] -> f Int -> f Bool -> HKD User f...
-- ... -- ...
-- --
-- Once we call the 'build' function, and indicate the type we want to build, -- Once we call the 'build' function, and indicate the type we want to build,