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 committed by Oleg Grenrus
parent 372c1e2a32
commit 9e4285f99d
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
instance HasLink (Verb m s ct a) where
type MkLink (Verb m s ct a) = URI
toLink _ = linkURI
type MkLink (Verb m s ct a) = Link
toLink _ = id
instance HasLink Raw where
type MkLink Raw = URI