diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs
index 636834e..56065e4 100644
--- a/src/Vervis/Foundation.hs
+++ b/src/Vervis/Foundation.hs
@@ -151,7 +151,7 @@ type PatchKeyHashid             = KeyHashid Patch
 getDvara :: App -> Dvara
 getDvara = const dvara
 
-mkYesodData "App" $(parseRoutesFile "config/routes")
+mkYesodData "App" $(parseRoutesFile "th/routes")
 
 -- | A convenient synonym for creating forms.
 type Form a = Html -> MForm (HandlerFor App) (FormResult a, Widget)
diff --git a/src/Vervis/Model.hs b/src/Vervis/Model.hs
index c7da8e4..0f593c3 100644
--- a/src/Vervis/Model.hs
+++ b/src/Vervis/Model.hs
@@ -1,6 +1,7 @@
 {- 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.
  -
@@ -49,7 +50,7 @@ import Vervis.Model.Workflow
 
 type PersistActivity = PersistJSON (Doc Activity URIMode)
 
-makeEntities $(modelFile "config/models")
+makeEntities $(modelFile "th/models")
 
 instance PersistUserCredentials Person where
     userUsernameF              = PersonLogin
diff --git a/config/models b/th/models
similarity index 100%
rename from config/models
rename to th/models
diff --git a/config/routes b/th/routes
similarity index 100%
rename from config/routes
rename to th/routes