@@ -13,12 +13,6 @@ import Text.Blaze.Html5.Attributes hiding (title,span,dir,style)
13import Text.Blaze.Internal
13import Text.Blaze.Internal
14import ToHtml
14import ToHtml
16−serverConf = Conf { port = 80
17− , validator = validator nullConf
19− , logAccess = logAccess nullConf
20− , timeout = timeout nullConf }
22serve :: String -> IO ()
16serve :: String -> IO ()
23serve libLoc = do
17serve libLoc = do
24 putStrLn "Elm Server 0.1: running at <http://localhost:8000>"
18 putStrLn "Elm Server 0.1: running at <http://localhost:8000>"