wutgadtinference.hs

{-# LANGUAGE FlexibleContexts           #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE GADTs                      #-}

module Models where

import Database.Persist.Sqlite (runSqlite)

-- without the explicit type signature, it fails
-- with an ambiguous Control.Monad.IO.Class.MonadIO instance
-- connectionString :: Text
connectionString = ":memory:"

runDb query =  runSqlite connectionString query