module Rakka.Resource.Object
    ( resObject
    )
    where

import           Network.HTTP.Lucu
import           Rakka.Environment


resObject :: Environment -> ResourceDef
resObject env
    = ResourceDef {
        resUsesNativeThread = False
      , resIsGreedy         = False
      , resGet              = Just $ do setContentType $ read "text/plain"
                                        output "FIXME: not implemented"
      , resHead             = Nothing
      , resPost             = Nothing
      , resPut              = Nothing
      , resDelete           = Nothing
      }