main :: IO ()
main = simpleHTTP nullConf $ CM.msum 
    [ dir "static"  $ serveDirectory DisableBrowsing [] "static"
    , dir "home"    $ homePage 
    , dir "index"   $ indexPage 
    , dir "good"    $ goodPage 
    , dir "table"   $ tablePage 
    , dir "params"  $ paramsPage 
    , dir "form"    $ formPage
    , seeOther ("/index" :: String) 
               (toResponse ("Page not found. Redirecting to /index\n" :: String))
    ]
main :: IO ()
main = simpleHTTP nullConf $ CM.msum 
    [ dir "static"  $ serveDirectory DisableBrowsing [] "static"
    , dir "home"    $ homePage 
    , dir "index"   $ indexPage 
    , dir "good"    $ goodPage 
    , dir "table"   $ tablePage 
    , dir "params"  $ paramsPage 
    , dir "form"    $ formPage
    , seeOther ("/index" :: String) 
               (toResponse ("Page not found. Redirecting to /index\n" :: String))
    ]
main = simpleHTTP nullConf $ CM.msum 
    [ dir "static"  $ serveDirectory DisableBrowsing [] "static"
    , dir "home"    $ homePage 
    , dir "index"   $ indexPage 
    , dir "good"    $ goodPage 
    , dir "table"   $ tablePage 
    , dir "params"  $ paramsPage 
    , dir "form"    $ formPage
    , seeOther ("/index" :: String) 
               (toResponse ("Page not found. Redirecting to /index\n" :: String))
    ]