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 addSegment (escape . unpack $ toText v) l
instance HasLink sub => HasLink (Header sym a :> sub) where instance HasLink sub => HasLink (Header sym a :> sub) where
type MkLink (Header sym a :> sub) = MkLink sub type MkLink (Header sym a :> sub) = MkLink sub
toLink _ = toLink (Proxy :: Proxy sub) toLink _ = toLink (Proxy :: Proxy sub)
-- Verb (terminal) instances -- Verb (terminal) instances
instance HasLink (Get y r) where instance HasLink (Get y r) where