fix haddock parse

This commit is contained in:
patrick brisbin 2011-09-19 16:10:46 -04:00
parent b031702a9b
commit aef2992005

View File

@ -48,10 +48,8 @@ defaultDevelApp = defaultDevelAppWith loadDevelopmentConfig
-- > withDevelAppPort = toDyn $ (defaultDevelAppWith customLoadAppConfig) withMySite -- > withDevelAppPort = toDyn $ (defaultDevelAppWith customLoadAppConfig) withMySite
-- --
defaultDevelAppWith :: AppEnv e defaultDevelAppWith :: AppEnv e
-- | A means to load your development @'AppConfig'@ => IO (AppConfig e) -- ^ A means to load your development @'AppConfig'@
=> IO (AppConfig e) -> (AppConfig e -> Logger -> (Application -> IO ()) -> IO ()) -- ^ Your @withMySite@ function
-- | Your @withMySite@ function
-> (AppConfig e -> Logger -> (Application -> IO ()) -> IO ())
-> ((Int, Application) -> IO ()) -> IO () -> ((Int, Application) -> IO ()) -> IO ()
defaultDevelAppWith load withSite f = do defaultDevelAppWith load withSite f = do
conf <- load conf <- load