roboservant/test/QueryParams.hs
Mark Wotton c61d4868cc hlint
2021-08-05 06:39:58 -05:00

16 lines
232 B
Haskell

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE TypeOperators #-}
module QueryParams where
import Servant
type Api = QueryParams "ints" Int :> Get '[JSON] [Int]
server :: Server Api
server = pure