6462804f52
# Conflicts: # servant-server/servant-server.cabal # servant-server/src/Servant/Server/Internal.hs # servant-server/test/Servant/ServerSpec.hs # servant/servant.cabal # servant/src/Servant/API.hs
26 lines
656 B
Haskell
26 lines
656 B
Haskell
{-# LANGUAGE DataKinds #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
|
{-# LANGUAGE TypeOperators #-}
|
|
|
|
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
|
|
|
|
import Data.Aeson
|
|
import GHC.Generics
|
|
import Network.Wai.Handler.Warp
|
|
import Servant
|
|
import Servant.Mock
|
|
import Test.QuickCheck.Arbitrary
|
|
|
|
newtype User = User { username :: String }
|
|
deriving (Eq, Show, Arbitrary, Generic)
|
|
|
|
instance ToJSON User
|
|
|
|
type API = "user" :> Get '[JSON] User
|
|
|
|
api :: Proxy API
|
|
api = Proxy
|
|
|
|
main :: IO ()
|
|
main = run 8080 (serve api $ mock api Proxy)
|