Controller -> Handler
This commit is contained in:
parent
399cad216d
commit
d1362485ec
@ -160,7 +160,7 @@ scaffold = do
|
|||||||
writeFile' ".ghci" $(codegen ".ghci")
|
writeFile' ".ghci" $(codegen ".ghci")
|
||||||
writeFile' "LICENSE" $(codegen "LICENSE")
|
writeFile' "LICENSE" $(codegen "LICENSE")
|
||||||
writeFile' (sitearg ++ ".hs") $ ifTiny $(codegen "tiny/sitearg.hs") $(codegen "sitearg.hs")
|
writeFile' (sitearg ++ ".hs") $ ifTiny $(codegen "tiny/sitearg.hs") $(codegen "sitearg.hs")
|
||||||
writeFile' "Controller.hs" $ ifTiny $(codegen "tiny/Controller.hs") $(codegen "Controller.hs")
|
writeFile' "Handler.hs" $ ifTiny $(codegen "tiny/Handler.hs") $(codegen "Handler.hs")
|
||||||
writeFile' "Handler/Root.hs" $ ifTiny $(codegen "tiny/Handler/Root.hs") $(codegen "Handler/Root.hs")
|
writeFile' "Handler/Root.hs" $ ifTiny $(codegen "tiny/Handler/Root.hs") $(codegen "Handler/Root.hs")
|
||||||
unless isTiny $ writeFile' "Model.hs" $(codegen "Model.hs")
|
unless isTiny $ writeFile' "Model.hs" $(codegen "Model.hs")
|
||||||
writeFile' "config/Settings.hs" $ ifTiny $(codegen "tiny/config/Settings.hs") $(codegen "config/Settings.hs")
|
writeFile' "config/Settings.hs" $ ifTiny $(codegen "tiny/config/Settings.hs") $(codegen "config/Settings.hs")
|
||||||
|
|||||||
@ -3,7 +3,7 @@
|
|||||||
{-# LANGUAGE OverloadedStrings #-}
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
{-# LANGUAGE CPP #-}
|
{-# LANGUAGE CPP #-}
|
||||||
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
||||||
module Controller
|
module Handler
|
||||||
( with~sitearg~
|
( with~sitearg~
|
||||||
, withDevelApp
|
, withDevelApp
|
||||||
) where
|
) where
|
||||||
@ -1,7 +1,7 @@
|
|||||||
{-# LANGUAGE CPP, DeriveDataTypeable #-}
|
{-# LANGUAGE CPP, DeriveDataTypeable #-}
|
||||||
import qualified Settings as Settings
|
import qualified Settings as Settings
|
||||||
import Settings (AppConfig(..))
|
import Settings (AppConfig(..))
|
||||||
import Controller (with~sitearg~)
|
import Handler (with~sitearg~)
|
||||||
import Network.Wai.Handler.Warp (run)
|
import Network.Wai.Handler.Warp (run)
|
||||||
import System.Console.CmdArgs hiding (args)
|
import System.Console.CmdArgs hiding (args)
|
||||||
import Data.Char (toUpper, toLower)
|
import Data.Char (toUpper, toLower)
|
||||||
|
|||||||
@ -25,7 +25,7 @@ library
|
|||||||
Buildable: True
|
Buildable: True
|
||||||
else
|
else
|
||||||
Buildable: False
|
Buildable: False
|
||||||
exposed-modules: Controller
|
exposed-modules: Handler
|
||||||
hs-source-dirs: ., config
|
hs-source-dirs: ., config
|
||||||
other-modules: ~sitearg~
|
other-modules: ~sitearg~
|
||||||
Model
|
Model
|
||||||
|
|||||||
@ -69,7 +69,7 @@ type Widget = GWidget ~sitearg~ ~sitearg~
|
|||||||
-- * Creates the associated type:
|
-- * Creates the associated type:
|
||||||
-- type instance Route ~sitearg~ = ~sitearg~Route
|
-- type instance Route ~sitearg~ = ~sitearg~Route
|
||||||
-- * Creates the value resources~sitearg~ which contains information on the
|
-- * Creates the value resources~sitearg~ which contains information on the
|
||||||
-- resources declared below. This is used in Controller.hs by the call to
|
-- resources declared below. This is used in Handler.hs by the call to
|
||||||
-- mkYesodDispatch
|
-- mkYesodDispatch
|
||||||
--
|
--
|
||||||
-- What this function does *not* do is create a YesodSite instance for
|
-- What this function does *not* do is create a YesodSite instance for
|
||||||
|
|||||||
@ -2,7 +2,7 @@
|
|||||||
{-# LANGUAGE MultiParamTypeClasses #-}
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
{-# LANGUAGE OverloadedStrings #-}
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
||||||
module Controller
|
module Handler
|
||||||
( with~sitearg~
|
( with~sitearg~
|
||||||
, withDevelApp
|
, withDevelApp
|
||||||
) where
|
) where
|
||||||
@ -25,7 +25,7 @@ library
|
|||||||
Buildable: True
|
Buildable: True
|
||||||
else
|
else
|
||||||
Buildable: False
|
Buildable: False
|
||||||
exposed-modules: Controller
|
exposed-modules: Handler
|
||||||
hs-source-dirs: ., config
|
hs-source-dirs: ., config
|
||||||
other-modules: ~sitearg~
|
other-modules: ~sitearg~
|
||||||
Settings
|
Settings
|
||||||
|
|||||||
@ -57,7 +57,7 @@ type Widget = GWidget ~sitearg~ ~sitearg~
|
|||||||
-- * Creates the associated type:
|
-- * Creates the associated type:
|
||||||
-- type instance Route ~sitearg~ = ~sitearg~Route
|
-- type instance Route ~sitearg~ = ~sitearg~Route
|
||||||
-- * Creates the value resources~sitearg~ which contains information on the
|
-- * Creates the value resources~sitearg~ which contains information on the
|
||||||
-- resources declared below. This is used in Controller.hs by the call to
|
-- resources declared below. This is used in Handler.hs by the call to
|
||||||
-- mkYesodDispatch
|
-- mkYesodDispatch
|
||||||
--
|
--
|
||||||
-- What this function does *not* do is create a YesodSite instance for
|
-- What this function does *not* do is create a YesodSite instance for
|
||||||
|
|||||||
@ -25,7 +25,7 @@ extra-source-files:
|
|||||||
scaffold/mongoDBConnPool.cg
|
scaffold/mongoDBConnPool.cg
|
||||||
scaffold/tiny/sitearg.hs.cg
|
scaffold/tiny/sitearg.hs.cg
|
||||||
scaffold/tiny/cabal.cg
|
scaffold/tiny/cabal.cg
|
||||||
scaffold/tiny/Controller.hs.cg
|
scaffold/tiny/Handler.hs.cg
|
||||||
scaffold/tiny/hamlet/homepage.hamlet.cg
|
scaffold/tiny/hamlet/homepage.hamlet.cg
|
||||||
scaffold/tiny/Handler/Root.hs.cg
|
scaffold/tiny/Handler/Root.hs.cg
|
||||||
scaffold/tiny/config/routes.cg
|
scaffold/tiny/config/routes.cg
|
||||||
@ -35,7 +35,7 @@ extra-source-files:
|
|||||||
scaffold/sqliteConnPool.cg
|
scaffold/sqliteConnPool.cg
|
||||||
scaffold/.ghci.cg
|
scaffold/.ghci.cg
|
||||||
scaffold/project.cabal.cg
|
scaffold/project.cabal.cg
|
||||||
scaffold/Controller.hs.cg
|
scaffold/Handler.hs.cg
|
||||||
scaffold/julius/homepage.julius.cg
|
scaffold/julius/homepage.julius.cg
|
||||||
scaffold/hamlet/homepage.hamlet.cg
|
scaffold/hamlet/homepage.hamlet.cg
|
||||||
scaffold/hamlet/default-layout.hamlet.cg
|
scaffold/hamlet/default-layout.hamlet.cg
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user