module Rakka.Resource.Index
    ( resIndex
    )
    where

import           Network.HTTP.Lucu
import           Rakka.Environment


resIndex :: Environment -> ResourceDef
resIndex 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
      }