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

server/config: tiny tweak

Browse source
This commit is contained in:
Sönke Hahn 2016-01-14 22:28:43 +01:00
parent 58b43cf64c
commit 4f78e487a4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-server/src/Servant/Server/Internal/Config.hs
View file

@ -40,7 +40,7 @@ instance OVERLAPPABLE_
HasConfigEntry xs val => HasConfigEntry (notIt ': xs) val where HasConfigEntry xs val => HasConfigEntry (notIt ': xs) val where
getConfigEntry (_ :. xs) = getConfigEntry xs getConfigEntry (_ :. xs) = getConfigEntry xs
instance OVERLAPPABLE_ instance OVERLAPPING_
HasConfigEntry (val ': xs) val where HasConfigEntry (val ': xs) val where
getConfigEntry (x :. _) = x getConfigEntry (x :. _) = x