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

rename the 'Captured' class to 'FromText'

Browse source
This commit is contained in:
Alp Mestanogullari 2014-10-22 12:56:46 +02:00
parent 1a105448f0
commit 3a32bd4162
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Servant.hs
View file

@ -20,16 +20,16 @@ import Soenke
data Capture sym a data Capture sym a
class Captured a where class FromText a where
capture :: Text -> Maybe a capture :: Text -> Maybe a
instance Captured Text where instance FromText Text where
capture = Just capture = Just
captured :: Captured a => proxy (Capture sym a) -> Text -> Maybe a captured :: FromText a => proxy (Capture sym a) -> Text -> Maybe a
captured _ = capture captured _ = capture
instance (KnownSymbol capture, Captured a, HasServer sublayout) instance (KnownSymbol capture, FromText a, HasServer sublayout)
=> HasServer (Capture capture a :> sublayout) where => HasServer (Capture capture a :> sublayout) where
-- this means that what follows the capture -- this means that what follows the capture