From 0375bf45df32a4b086298f3cfad2d1c58d7ab196 Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Mon, 11 Apr 2005 19:11:38 +0000 Subject: [PATCH] minor change --- Main.hs | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/Main.hs b/Main.hs index 20ead43..2fdbbd5 100644 --- a/Main.hs +++ b/Main.hs @@ -6,21 +6,16 @@ import CGIOutput import CGITypes import System import Wiki +import Backend import Control.Monad import Text.ParserCombinators.Parsec -testDB = createPGB "localhost" "wiki" "wiki" "12wiki34db" - -test key = do - db <- testDB - s <- getCurrent db key - print s - ---main = start [] cgi +--backend = createPGB "hostname" "database" "user" "password" +--If you want to implement this function here, then remove the import of Backend main = do - db <- testDB + db <- backend runWithHook [] (\(key:act) -> showPage db (filter (/= '\\') key)) $ showPage db "itproj3" editPage db key = do -- 2.39.2