eeva
/
servant-ekg
mirror of https://github.com/haskell-servant/servant-ekg.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

stylish

This commit is contained in:
Timo von Holtz 2015-05-01 16:09:23 +10:00
parent 52585c70e6
commit 04fce530d6
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/test.hs
View File

@ -1,10 +1,10 @@
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverlappingInstances #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE OverlappingInstances #-}
import Control.Concurrent
import Data.Aeson
@ -14,8 +14,8 @@ import Data.Text
import GHC.Generics
import Network.Wai
import Network.Wai.Handler.Warp
import System.Metrics
import Servant
import System.Metrics
import Servant.Ekg
@ -56,7 +56,7 @@ server = helloH :<|> postGreetH :<|> deleteGreetH
helloH name (Just False) = return . Greet $ "Hello, " <> name
helloH name (Just True) = return . Greet . toUpper $ "Hello, " <> name
postGreetH greet = return greet
postGreetH = return
deleteGreetH _ = return ()