Permalink
Switch branches/tags
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (7 sloc) 245 Bytes
{-# LANGUAGE OverloadedStrings #-}
import Data.Text.Lazy
import Data.Text.Lazy.Encoding
import Network.Warp
warpApplication respond request =
respond $ respondLBS $ encodeUtf8 "{\"text\": \"My json response\"}"
main = run warpApplication