Simple servant example

gistfile1.hs

{-# LANGUAGE DataKinds, TypeFamilies, TypeOperators, OverloadedStrings #-}
module M where

import Servant.Server
import Servant
import Data.Text (Text)
import Network.Wai.Handler.Warp
import Data.Proxy

myApi :: Proxy MyApi
myApi = Proxy

type MyApi = "string" :> Get Text

server :: Server MyApi
server = return "some text"

main :: IO ()
main = run 8080 (serve myApi server)