X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Main.hs;h=81f41a5f345cc1443224ff05ea0f8968f37f1556;hp=1e670c8df20eb6089ccf731bdb724ab3b102ec81;hb=522dde5470584bb3f82cb0b4179233724d2408d0;hpb=8d621fced0d1b3f66d38b16cd732fd2342622c5d diff --git a/Main.hs b/Main.hs index 1e670c8..81f41a5 100644 --- a/Main.hs +++ b/Main.hs @@ -12,6 +12,7 @@ import Rakka.Resource.PageEntity import Rakka.Resource.Object import Rakka.Resource.Render import Rakka.Resource.Search +import Rakka.Resource.SystemConfig import Rakka.Resource.TrackBack import Rakka.Storage import Subversion @@ -139,15 +140,16 @@ main = withSubversion $ resTree :: Environment -> ResTree resTree env - = mkResTree [ ([] , resIndex env) - , (["checkAuth" ], resCheckAuth env) - , (["js" ], javaScript ) - , (["object" ], resObject env) - , (["render" ], resRender env) - , (["search" ], resSearch env) - , (["search.html"], resSearch env) - , (["search.xml" ], resSearch env) - , (["trackback" ], resTrackBack env) + = mkResTree [ ([] , resIndex env) + , (["checkAuth" ], resCheckAuth env) + , (["js" ], javaScript ) + , (["object" ], resObject env) + , (["render" ], resRender env) + , (["search" ], resSearch env) + , (["search.html" ], resSearch env) + , (["search.xml" ], resSearch env) + , (["systemConfig"], resSystemConfig env) + , (["trackback" ], resTrackBack env) ]