From 4f78e487a4be330de7c69596e2473280114e925b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=B6nke=20Hahn?= Date: Thu, 14 Jan 2016 22:28:43 +0100 Subject: [PATCH] server/config: tiny tweak --- servant-server/src/Servant/Server/Internal/Config.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-server/src/Servant/Server/Internal/Config.hs b/servant-server/src/Servant/Server/Internal/Config.hs index 5eab9431..90d41555 100644 --- a/servant-server/src/Servant/Server/Internal/Config.hs +++ b/servant-server/src/Servant/Server/Internal/Config.hs @@ -40,7 +40,7 @@ instance OVERLAPPABLE_ HasConfigEntry xs val => HasConfigEntry (notIt ': xs) val where getConfigEntry (_ :. xs) = getConfigEntry xs -instance OVERLAPPABLE_ +instance OVERLAPPING_ HasConfigEntry (val ': xs) val where getConfigEntry (x :. _) = x