1 module Rakka.Resource.Page
7 import Network.HTTP.Lucu
8 import Rakka.Environment
11 fallbackPage :: Environment -> [String] -> IO (Maybe ResourceDef)
13 | null path = return Nothing
14 | null $ head path = return Nothing
15 | not $ isUpper $ head $ head path = return Nothing -- /Foo/bar のような形式でない。
17 = return $ Just $ ResourceDef {
18 resUsesNativeThread = False
20 , resGet = Just $ handleGet env path
23 , resPut = Just $ handlePut env path
24 , resDelete = Just $ handleDelete env path
28 handleGet :: Environment -> [String] -> Resource ()
29 handleGet = fail "FIXME: not implemented"
32 handlePut :: Environment -> [String] -> Resource ()
33 handlePut = fail "FIXME: not implemented"
36 handleDelete :: Environment -> [String] -> Resource ()
37 handleDelete = fail "FIXME: not implemented"