data MyAppR = MyAppR { dbPool :: Pool Connection } type NewApp = ReaderT (MyAppR) IO type AppActionNew a = ActionT L.Text NewApp a type AppSe