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

examples: tweak GS3

Browse source
This commit is contained in:
Alp Mestanogullari 2015-05-06 00:20:54 +02:00
parent 3edc067c66
commit f3002b36da
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
servant-examples/getting-started/GS3.hs
View file

@ -51,7 +51,7 @@ emailForClient c = Email from' to' subject' body'
++ "Since you've recently turned " ++ show (age c) ++ "Since you've recently turned " ++ show (age c)
++ ", have you checked out our latest " ++ ", have you checked out our latest "
++ intercalate ", " (interested_in c) ++ intercalate ", " (interested_in c)
++ " ? Give us a visit!" ++ " products? Give us a visit!"
type API = "position" :> Capture "x" Int :> Capture "y" Int :> Get '[JSON] Position type API = "position" :> Capture "x" Int :> Capture "y" Int :> Get '[JSON] Position
:<|> "hello" :> QueryParam "name" String :> Get '[JSON] HelloMessage :<|> "hello" :> QueryParam "name" String :> Get '[JSON] HelloMessage
@ -65,15 +65,15 @@ server = position
:<|> hello :<|> hello
:<|> marketing :<|> marketing
where position :: Int -> Int -> EitherT Int IO Position where position :: Int -> Int -> EitherT ServantErr IO Position
position x y = return (Position x y) position x y = return (Position x y)
hello :: Maybe String -> EitherT Int IO HelloMessage hello :: Maybe String -> EitherT ServantErr IO HelloMessage
hello mname = return . HelloMessage $ case mname of hello mname = return . HelloMessage $ case mname of
Nothing -> "Hello, anonymous coward" Nothing -> "Hello, anonymous coward"
Just n -> "Hello, " ++ n Just n -> "Hello, " ++ n
marketing :: ClientInfo -> EitherT Int IO Email marketing :: ClientInfo -> EitherT ServantErr IO Email
marketing clientinfo = return (emailForClient clientinfo) marketing clientinfo = return (emailForClient clientinfo)
app :: Application app :: Application