In early development

[Rakka.git] / Rakka / Resource / Object.hs

diff --git a/Rakka/Resource/Object.hs b/Rakka/Resource/Object.hs
new file mode 100644 (file)
index 0000000..9e30d1e
--- /dev/null
+++ b/Rakka/Resource/Object.hs
@@ -0,0 +1,22 @@
+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
+      }
+