From a2bc8a0d0d8d5c4df8611d4a6947dcac60007f90 Mon Sep 17 00:00:00 2001 From: Nickolay Kudasov Date: Sat, 19 Sep 2015 01:21:15 +0300 Subject: [PATCH] Add ToSample instances for Maybe, Either and [] --- servant-docs/src/Servant/Docs/Internal.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs index 185df758..56d9b924 100644 --- a/servant-docs/src/Servant/Docs/Internal.hs +++ b/servant-docs/src/Servant/Docs/Internal.hs @@ -971,3 +971,7 @@ instance (ToSample a a, ToSample b b, ToSample c c, ToSample d d, ToSample e e) instance (ToSample a a, ToSample b b, ToSample c c, ToSample d d, ToSample e e, ToSample f f) => ToSample (a, b, c, d, e, f) (a, b, c, d, e, f) instance (ToSample a a, ToSample b b, ToSample c c, ToSample d d, ToSample e e, ToSample f f, ToSample g g) => ToSample (a, b, c, d, e, f, g) (a, b, c, d, e, f, g) +instance ToSample a a => ToSample (Maybe a) (Maybe a) +instance (ToSample a a, ToSample b b) => ToSample (Either a b) (Either a b) +instance ToSample a a => ToSample [a] [a] +