Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (14 sloc) 420 Bytes
{-# LANGUAGE QuasiQuotes, TypeFamilies, MultiParamTypeClasses, TemplateHaskell #-}
import Yesod
import qualified Data.ByteString.Lazy as L
import Data.Enumerator.List (consume)
data App = App
mkYesod "App" [$parseRoutes|
/ RootR PUT
instance Yesod App where
approot _ = ""
putRootR = do
bss <- lift consume
return $ RepJson $ toContent $ L.fromChunks bss
main = warpDebug 8000 App
Jump to Line
Something went wrong with that request. Please try again.