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

add a comment about the Server instance for Capture

Browse source
This commit is contained in:
Alp Mestanogullari 2014-10-21 16:18:18 +02:00
parent a650b97378
commit 45a625c72c
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Servant.hs
View file

@ -32,6 +32,9 @@ captured _ = capture
instance (KnownSymbol capture, Captured a, HasServer sublayout) instance (KnownSymbol capture, Captured a, HasServer sublayout)
=> HasServer (Capture capture a :> sublayout) where => HasServer (Capture capture a :> sublayout) where
-- this means that what follows the capture
-- must necessarily be a function that expects
-- the captured value. :-(
type Server (Capture capture a :> sublayout) = type Server (Capture capture a :> sublayout) =
Capture capture a :> (a -> Server sublayout) Capture capture a :> (a -> Server sublayout)