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