From e3c3ba2aeb8f1152792804c3bf015282ceb43e33 Mon Sep 17 00:00:00 2001 From: Alp Mestanogullari Date: Thu, 18 Jun 2015 13:09:18 +0200 Subject: [PATCH] remove tabs --- servant/src/Servant/Utils/Links.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/servant/src/Servant/Utils/Links.hs b/servant/src/Servant/Utils/Links.hs index 0d16d379..7cb8df76 100644 --- a/servant/src/Servant/Utils/Links.hs +++ b/servant/src/Servant/Utils/Links.hs @@ -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