breakup getApplication into makeFoundation and makeApplication that way tests can re-use makeFoundation
9 lines
273 B
Plaintext
9 lines
273 B
Plaintext
import Prelude (IO)
|
|
import Yesod.Default.Config (fromArgs)
|
|
import Yesod.Default.Main (defaultMain)
|
|
import Settings (parseExtra)
|
|
import Application (makeApplication)
|
|
|
|
main :: IO ()
|
|
main = defaultMain (fromArgs parseExtra) makeApplication
|