Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 03:41:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

categories refactor

Browse Source
This commit is contained in:
Lucy Cifferello
2021-06-30 09:36:49 -04:00
parent 47a31ddfc3
commit 55ef470df7
27 changed files with 817 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/TestImport.hs
View File

@@ -8,7 +8,7 @@ module TestImport
)
where
import Startlude
import Startlude hiding (Handler)
import Application ( makeFoundation
, makeLogWare
)
@@ -23,6 +23,8 @@ import Database.Persist.Sql
import Text.Shakespeare.Text ( st )
import Yesod.Core
import qualified Data.Text as T
import Database.Esqueleto.Internal.Internal
import Database.Persist.Sql.Types.Internal
runHandler :: Handler a -> YesodExample RegistryCtx a
runHandler handler = do
@@ -55,8 +57,8 @@ wipeDB app = runDBWithApp app $ do
tables <- getTables
sqlBackend <- ask
let escapedTables = map (T.unpack . connEscapeName sqlBackend . DBName) tables
query = "TRUNCATE TABLE " ++ (intercalate ", " escapedTables)
let escapedTables = map (T.unpack . connEscapeRawName sqlBackend . unDBName . DBName) tables
query = "TRUNCATE TABLE " ++ intercalate ", " escapedTables
rawExecute (T.pack query) []
runDBtest :: SqlPersistM a -> YesodExample RegistryCtx a