Fix file structure for yesod devel

This commit is contained in:
Gregor Kleen 2017-10-04 14:12:19 +02:00
parent b058fd84ba
commit 2d2b1a2ed3
8 changed files with 3 additions and 3 deletions

View File

View File

@ -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

View File

View File

@ -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)

View File

@ -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