diff --git a/yesod-default/Yesod/Default/Main.hs b/yesod-default/Yesod/Default/Main.hs index 199b1f1d..a1e330f9 100644 --- a/yesod-default/Yesod/Default/Main.hs +++ b/yesod-default/Yesod/Default/Main.hs @@ -26,16 +26,10 @@ import Control.Concurrent.MVar (newEmptyMVar, putMVar, takeMVar) -- | Run your app, taking environment and port settings from the -- commandline. -- --- Use @'fromArgs'@ when using the provided @'DefaultEnv'@ type, or --- @'fromArgsWith'@ when using a custom type +-- @'fromArgs'@ helps parse a custom configuration -- -- > main :: IO () --- > main = defaultMain fromArgs withMySite --- --- or --- --- > main :: IO () --- > main = defaultMain (fromArgsWith customArgConfig) withMySite +-- > main = defaultMain (fromArgs parseExtra) makeApplication -- defaultMain :: (Show env, Read env) => IO (AppConfig env extra)