sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 17:04:52 +09:00
Code Issues Activity

Move models and routes files from config/ to new th/ dir

Browse source
This commit is contained in:
fr33domlover 2022-07-25 18:40:36 +00:00
parent 066285d3a3
commit 91b2d36a19
4 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/Foundation.hs
View file

@ -151,7 +151,7 @@ type PatchKeyHashid = KeyHashid Patch
getDvara :: App -> Dvara getDvara :: App -> Dvara
getDvara = const dvara getDvara = const dvara
mkYesodData "App" $(parseRoutesFile "config/routes") mkYesodData "App" $(parseRoutesFile "th/routes")
-- | A convenient synonym for creating forms. -- | A convenient synonym for creating forms.
type Form a = Html -> MForm (HandlerFor App) (FormResult a, Widget) type Form a = Html -> MForm (HandlerFor App) (FormResult a, Widget)

5
src/Vervis/Model.hs
View file

@ -1,6 +1,7 @@
{- This file is part of Vervis. {- This file is part of Vervis.
- -
- Written in 2016, 2018, 2019, 2020 by fr33domlover <fr33domlover@riseup.net>. - Written in 2016, 2018, 2019, 2020, 2022
- by fr33domlover <fr33domlover@riseup.net>.
- -
- ♡ Copying is an act of love. Please copy, reuse and share. - ♡ Copying is an act of love. Please copy, reuse and share.
- -
@ -49,7 +50,7 @@ import Vervis.Model.Workflow
type PersistActivity = PersistJSON (Doc Activity URIMode) type PersistActivity = PersistJSON (Doc Activity URIMode)
makeEntities $(modelFile "config/models") makeEntities $(modelFile "th/models")
instance PersistUserCredentials Person where instance PersistUserCredentials Person where
userUsernameF = PersonLogin userUsernameF = PersonLogin

0
config/models → th/models
View file

0
config/routes → th/routes
View file