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

Yielding for safe instances of HasLink

Browse source
This commit is contained in:
Alejandro D. P 2016-08-15 01:44:23 +02:00
parent d0a28e46b0
commit 4e8a8c3a27
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant/src/Servant/Utils/Links.hs
View file

@ -307,8 +307,8 @@ instance HasLink sub => HasLink (BasicAuth realm a :> sub) where
-- Verb (terminal) instances -- Verb (terminal) instances
instance HasLink (Verb m s ct a) where instance HasLink (Verb m s ct a) where
type MkLink (Verb m s ct a) = URI type MkLink (Verb m s ct a) = Link
toLink _ = linkURI toLink _ = id
instance HasLink Raw where instance HasLink Raw where
type MkLink Raw = URI type MkLink Raw = URI