summaryrefslogtreecommitdiff
path: root/src/Servant/Links.hs
diff options
context:
space:
mode:
authorphadej <>2020-01-23 12:16:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2020-01-23 12:16:00 (GMT)
commit709a03143ca08256063d5d59dc524c6eefe41817 (patch)
treeb01a5f2ab20d48535e665108690853fdd62e2d35 /src/Servant/Links.hs
parentc16b03b95650ccca151d34fea837005a44e1fd97 (diff)
version 0.170.17
Diffstat (limited to 'src/Servant/Links.hs')
-rw-r--r--src/Servant/Links.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Servant/Links.hs b/src/Servant/Links.hs
index 77f882d..0d07c20 100644
--- a/src/Servant/Links.hs
+++ b/src/Servant/Links.hs
@@ -177,7 +177,7 @@ import Servant.API.TypeLevel
import Servant.API.Vault
(Vault)
import Servant.API.Verbs
- (Verb)
+ (Verb, NoContentVerb)
import Servant.API.WithNamedContext
(WithNamedContext)
import Web.HttpApiData
@@ -546,6 +546,10 @@ instance HasLink (Verb m s ct a) where
type MkLink (Verb m s ct a) r = r
toLink toA _ = toA
+instance HasLink (NoContentVerb m) where
+ type MkLink (NoContentVerb m) r = r
+ toLink toA _ = toA
+
instance HasLink Raw where
type MkLink Raw a = a
toLink toA _ = toA