{-# LANGUAGE QuasiQuotes, TypeFamilies, GeneralizedNewtypeDeriving #-}
{-# LANGUAGE OverloadedStrings #-}
module TestApp (testApp) where

import Network.Wai
import Data.ByteString.Lazy.Char8 (pack)
import Database.Persist.Sqlite
import System.Directory
import Control.Monad (when)

mkPersist [$persist|
Dummy
    dummy String
|]

testApp handler = do
    putStrLn "testApp called, this should happen only once per reload"
    let db = "test.db3"
    -- Swap between the following two lines as necessary to generate errors
    exi <- doesFileExist db
    --let exi = True
    when exi $ removeFile db
    withSqlitePool db 10 $ \pool -> do
        flip runSqlPool pool $ runMigration $ migrate $ Dummy ""
        handler $ const $ do
            x <- flip runSqlPool pool $ do
                insert $ Dummy ""
                count ([] :: [Filter Dummy])
            return $ Response status200
                [("Content-Type", "text/plain")]
                $ ResponseLBS $ pack $ "Counter: " ++ show x
        putStrLn "handler completed, this should only happen at the beginning of a reload"