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

remove tabs

Browse Source
This commit is contained in:
Alp Mestanogullari 2015-06-18 13:09:18 +02:00 committed by Christian Marie
parent 76b21f787c
commit e3c3ba2aeb
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

@ -340,8 +340,8 @@ instance (ToText v, HasLink sub)
addSegment (escape . unpack $ toText v) l
instance HasLink sub => HasLink (Header sym a :> sub) where
type MkLink (Header sym a :> sub) = MkLink sub
toLink _ = toLink (Proxy :: Proxy sub)
type MkLink (Header sym a :> sub) = MkLink sub
toLink _ = toLink (Proxy :: Proxy sub)
-- Verb (terminal) instances
instance HasLink (Get y r) where