Update doctest for error message in Links.hs

2015-08-13 10:48:06 +12:00 · 2015-08-13 10:48:06 +12:00 · 1342052a4f
commit 1342052a4f
parent 68387f4c81
1 changed files with 3 additions and 1 deletions
--- a/servant/src/Servant/Utils/Links.hs
+++ b/servant/src/Servant/Utils/Links.hs
@ -74,7 +74,9 @@
 -- >>> safeLink api bad_link
 -- ...
 --     Could not deduce (Or
--                         (IsElem' (Delete '[JSON] ()) (Get '[JSON] Int))
+--                         (IsElem' 
+--                            (HttpMethod "DELETE" 200 '[JSON] ())
+--                            (HttpMethod "GET" 200 '[JSON] Int))
 --                         (IsElem'
 --                            ("hello" :> Delete '[JSON] ())
 --                            ("bye" :> (QueryParam "name" String :> Delete '[JSON] ()))))