Fix file structure for yesod devel
This commit is contained in:
parent
b058fd84ba
commit
2d2b1a2ed3
@ -68,7 +68,7 @@ library:
|
|||||||
executables:
|
executables:
|
||||||
uniworx:
|
uniworx:
|
||||||
main: main.hs
|
main: main.hs
|
||||||
source-dirs: exe
|
source-dirs: app
|
||||||
ghc-options:
|
ghc-options:
|
||||||
- -threaded
|
- -threaded
|
||||||
- -rtsopts
|
- -rtsopts
|
||||||
|
|||||||
@ -56,7 +56,7 @@ data MenuTypes
|
|||||||
-- This function also generates the following type synonyms:
|
-- This function also generates the following type synonyms:
|
||||||
-- type Handler = HandlerT App IO
|
-- type Handler = HandlerT App IO
|
||||||
-- type Widget = WidgetT App IO ()
|
-- type Widget = WidgetT App IO ()
|
||||||
mkYesodData "App" $(parseRoutesFile "app/routes")
|
mkYesodData "App" $(parseRoutesFile "routes")
|
||||||
|
|
||||||
-- | A convenient synonym for creating forms.
|
-- | A convenient synonym for creating forms.
|
||||||
type Form x = Html -> MForm (HandlerT App IO) (FormResult x, Widget)
|
type Form x = Html -> MForm (HandlerT App IO) (FormResult x, Widget)
|
||||||
|
|||||||
@ -23,7 +23,7 @@ import Model.Types
|
|||||||
-- at:
|
-- at:
|
||||||
-- http://www.yesodweb.com/book/persistent/
|
-- http://www.yesodweb.com/book/persistent/
|
||||||
share [mkPersist sqlSettings, mkMigrate "migrateAll"]
|
share [mkPersist sqlSettings, mkMigrate "migrateAll"]
|
||||||
$(persistFileWith lowerCaseSettings "app/models")
|
$(persistFileWith lowerCaseSettings "models")
|
||||||
|
|
||||||
instance Show Term where
|
instance Show Term where
|
||||||
show = ClassyPrelude.Yesod.unpack . termName
|
show = ClassyPrelude.Yesod.unpack . termName
|
||||||
|
|||||||
Reference in New Issue
Block a user