Rakka/Resource/Object.hs

   1 module Rakka.Resource.Object
   2     ( resObject
   3     )
   4     where
   5
   6 import           Network.HTTP.Lucu
   7 import           Rakka.Environment
   8
   9
  10 resObject :: Environment -> ResourceDef
  11 resObject env
  12     = ResourceDef {
  13         resUsesNativeThread = False
  14       , resIsGreedy         = False
  15       , resGet              = Just $ do setContentType $ read "text/plain"
  16                                         output "FIXME: not implemented"
  17       , resHead             = Nothing
  18       , resPost             = Nothing
  19       , resPut              = Nothing
  20       , resDelete           = Nothing
  21       }
  22