eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add more ToSample instances

Browse source
This commit is contained in:
Nickolay Kudasov 2015-09-21 12:02:44 +03:00
parent 714e740098
commit 8ecf2219ab
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
servant-docs/src/Servant/Docs/Internal.hs
View file

@ -980,3 +980,17 @@ instance (ToSample a a, ToSample b b, ToSample c c, ToSample d d, ToSample e e,
instance ToSample a a => ToSample (Maybe a) (Maybe a) 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 b b) => ToSample (Either a b) (Either a b)
instance ToSample a a => ToSample [a] [a] instance ToSample a a => ToSample [a] [a]
-- ToSample instances for Control.Applicative types
instance ToSample a a => ToSample (Const a b) (Const a b)
instance ToSample a a => ToSample (ZipList a) (ZipList a)
-- ToSample instances for Data.Monoid newtypes
instance ToSample All All
instance ToSample Any Any
instance ToSample a a => ToSample (Sum a) (Sum a)
instance ToSample a a => ToSample (Product a) (Product a)
instance ToSample a a => ToSample (First a) (First a)
instance ToSample a a => ToSample (Last a) (Last a)
instance ToSample a a => ToSample (Dual a) (Dual a)