{-# OPTIONS_HADDOCK not-home, hide #-}
module IHP.ControllerPrelude
    ( module IHP.Prelude
    , module IHP.ControllerSupport
    , module IHP.Controller.AccessDenied
    , module IHP.Controller.NotFound
    , module IHP.Controller.Render
    , module IHP.Controller.Param
    , module IHP.Controller.FileUpload
    , module IHP.Controller.Session
    , module IHP.Controller.Redirect
    , module IHP.Controller.BasicAuth
    , module IHP.Controller.Cookie
    , module IHP.HaskellSupport
    , module IHP.ModelSupport
    , module IHP.FrameworkConfig
    , module IHP.QueryBuilder
    , module IHP.Fetch
    , module IHP.FetchRelated
    , module Data.Aeson
    , module Network.Wai.Parse
    , module IHP.RouterSupport
    , module IHP.ValidationSupport
    , module IHP.AutoRefresh
    , module IHP.FlashMessages
    , module IHP.Controller.Context
    , module IHP.Modal.Types
    , setModal
    , module IHP.Controller.Layout
    , module IHP.Job.Types
    , module IHP.LoginSupport.Helper.Controller
    , Only (..)
    , module IHP.PageHead.ControllerFunctions
    , module IHP.WebSocket
    , module IHP.FileStorage.Types
    , module IHP.FileStorage.ControllerFunctions
    , module IHP.FileStorage.Preprocessor.ImageMagick
    , module IHP.Pagination.ControllerFunctions
    , module IHP.HSX.QQ
    ) where
import IHP.Prelude
import IHP.Controller.Param
import IHP.Controller.FileUpload
import IHP.Controller.Render
import IHP.Controller.AccessDenied
import IHP.Controller.NotFound
import IHP.Controller.Session
import IHP.Controller.BasicAuth
import IHP.Controller.Cookie
import IHP.ControllerSupport
import IHP.ValidationSupport
import IHP.HaskellSupport
import IHP.ModelSupport
import IHP.FrameworkConfig
import IHP.QueryBuilder
import IHP.Fetch
import IHP.FetchRelated
import Data.Aeson hiding (Success)
import Network.Wai.Parse (FileInfo(..))
import IHP.RouterSupport hiding (get, post)
import IHP.Controller.Redirect
import Database.PostgreSQL.Simple.Types (Only (..))
import IHP.FlashMessages
import IHP.Controller.Context
import IHP.Controller.Layout

import IHP.Modal.Types
import qualified IHP.Modal.ControllerFunctions as Modal
import IHP.ViewSupport (View)
import qualified IHP.ViewSupport as ViewSupport

import IHP.Job.Types
import IHP.AutoRefresh (autoRefresh)

import IHP.LoginSupport.Helper.Controller
import IHP.PageHead.ControllerFunctions

import IHP.WebSocket

import IHP.FileStorage.Types
import IHP.FileStorage.ControllerFunctions
import IHP.FileStorage.Preprocessor.ImageMagick

import IHP.Pagination.ControllerFunctions
import IHP.HSX.QQ (hsx)
import IHP.HSX.ToHtml ()

-- | Renders a view and stores it as modal HTML in the context for later rendering.
--
-- > setModal MyModalView { .. }
--
setModal :: (?context :: ControllerContext, ?request :: Request, View view) => view -> IO ()
setModal :: forall view.
(?context::ControllerContext, ?request::Request, View view) =>
view -> IO ()
setModal view
view = let ?view = view
?view::view
view in (?request::Request) => Html -> IO ()
Html -> IO ()
Modal.setModal (view -> Html
forall theView.
(View theView, ?context::ControllerContext, ?view::theView,
 ?request::Request) =>
theView -> Html
ViewSupport.html view
view)