fradrive/src/Import/NoModel.hs

module Import.NoModel
  ( module Import
  , MForm
  , WeekDay
  , requireAuthId
  ) where

import ClassyPrelude.Yesod    as Import
  hiding ( formatTime
         , derivePersistFieldJSON
         , getMessages, addMessage, addMessageI
         , (.=)
         , MForm
         , Proxy
         , foldlM
         , static
         , boolField, identifyForm, addClass
         , HasHttpManager(..)
         , embed
         , try, embed, catches, handle, catch, bracket, bracketOnError, bracket_, catchJust, finally, handleJust, mask, mask_, onException, tryJust, uninterruptibleMask, uninterruptibleMask_
         , htmlField, fileField
         , mreq, areq, wreq -- Use `mreqMsg`, `areqMsg`, `wreqMsg`
         , sinkFile, sourceFile
         )

import UnliftIO.Async.Utils as Import

import Model.Types.TH.JSON as Import
import Model.Types.TH.Wordlist as Import

import Mail                   as Import

import Yesod.Auth             as Import hiding (requireAuthId)
import Yesod.Core.Types       as Import (loggerSet)
import Yesod.Default.Config2  as Import
import Yesod.Core.Types.Instances as Import

import Utils                  as Import
import Utils.Frontend.I18n    as Import
import Utils.DB               as Import

import Data.Fixed             as Import

import Data.UUID              as Import (UUID)

import Data.CaseInsensitive   as Import (CI, FoldCase(..), foldedCase)

import Text.Lucius            as Import
import Text.Julius            as Import
import Text.Shakespeare.Text  as Import hiding (text, stext)

import Data.Universe          as Import
import Data.Universe.TH       as Import
import UnliftIO.Pool          as Import (Pool)
import Network.HaskellNet.SMTP as Import (SMTPConnection)

import Data.Data              as Import (Data)
import GHC.Exts               as Import (IsList)
import Data.Ix                as Import (Ix)

import Data.Hashable          as Import
import Data.List.NonEmpty     as Import (NonEmpty(..), nonEmpty)
import Data.Text.Encoding.Error as Import(UnicodeException(..))
import Data.Semigroup         as Import (Min(..), Max(..))
import Data.Monoid            as Import (Last(..), First(..), Any(..), All(..), Sum(..), Endo(..), Alt(..), Dual(..))
import Data.Binary            as Import (Binary)
import Data.Binary.Instances  as Import ()

import System.FilePath        as Import hiding (joinPath, normalise, isValid, makeValid)

import Numeric.Natural        as Import (Natural)
import Data.Ratio             as Import ((%))

import Net.IP                 as Import (IP)

import Database.Persist.Sql as Import (SqlReadBackend, SqlReadT, SqlWriteT, IsSqlBackend, fromSqlKey, toSqlKey)

import Ldap.Client.Pool as Import

import System.Random as Import (Random(..))
import Control.Monad.Random.Class as Import (MonadRandom(..))

import Control.Monad.Morph as Import
import Control.Monad.Trans.Resource as Import (ReleaseKey)
import Control.Monad.Trans.Reader as Import
  ( reader, runReader, mapReader, withReader
  , mapReaderT, withReaderT
  )
import Control.Monad.Trans.State as Import
  ( state, State, runState, mapState, withState
  , StateT(..), mapStateT, withStateT
  )
import Control.Monad.Trans.Writer.Lazy as Import
  ( writer, Writer, runWriter, mapWriter, execWriter
  , WriterT(..), mapWriterT, execWriterT
  )
import Control.Monad.Trans.Except as Import
  ( except, Except, runExcept, mapExcept
  , ExceptT(..), runExceptT, mapExceptT, throwE
  )
import Control.Monad.Base as Import
import Control.Monad.Catch as Import hiding (Handler(..))
import Control.Monad.Trans.Control as Import hiding (embed)
import Control.Monad.Fail as Import

import Jose.Jwk as Import (JwkSet, Jwk(..))
import Jose.Jwt as Import (Jwt(..))

import Data.Time.Calendar as Import
import Data.Time.Clock as Import
import Data.Time.LocalTime as Import hiding (utcToLocalTime, utcToZonedTime, localTimeToUTC)

import Network.Mime as Import

import Data.Aeson.TH as Import
import Data.Aeson.Types as Import (FromJSONKey(..), ToJSONKey(..), toJSONKeyText, FromJSONKeyFunction(..), ToJSONKeyFunction(..))

import Data.Constraint as Import (Dict(..))

import Algebra.Lattice as Import

import Data.Proxy as Import (Proxy(..))

import Data.List.PointedList as Import (PointedList)

import Language.Haskell.TH.Instances as Import ()
import Data.NonNull.Instances as Import ()
import Data.Monoid.Instances  as Import ()
import Data.Maybe.Instances  as Import ()
import Data.CryptoID.Instances  as Import ()
import Data.Sum.Instances     as Import ()
import Data.Fixed.Instances   as Import ()
import Data.Scientific.Instances   as Import ()
import Data.Set.Instances     as Import ()
import Data.Time.Clock.Instances as Import ()
import Data.Time.LocalTime.Instances as Import ()
import Data.Time.Calendar.Instances as Import ()
import Data.Time.Format.Instances as Import ()
import Network.Mail.Mime.Instances as Import ()
import Yesod.Core.Instances as Import ()
import Data.Aeson.Types.Instances as Import ()
import Database.Esqueleto.Instances as Import ()
import Numeric.Natural.Instances as Import ()
import Text.Blaze.Instances as Import ()
import Jose.Jwt.Instances as Import ()
import Web.PathPieces.Instances as Import ()
import Data.Universe.Instances.Reverse.MonoTraversable ()
import Data.Universe.Instances.Reverse.WithIndex ()
import Database.Persist.Class.Instances as Import ()
import Database.Persist.Types.Instances as Import ()
import Data.UUID.Instances as Import ()
import System.FilePath.Instances as Import ()
import Net.IP.Instances as Import ()
import Data.Void.Instances as Import ()
import Crypto.Hash.Instances as Import ()
import Colonnade.Instances as Import ()
import Data.Bool.Instances as Import ()
import Data.Encoding.Instances as Import ()
import Prometheus.Instances as Import ()
import Yesod.Form.Fields.Instances as Import ()
import Data.MonoTraversable.Instances as Import ()
import Web.Cookie.Instances as Import ()
import Network.HTTP.Types.Method.Instances as Import ()
import Crypto.Random.Instances as Import ()
import Network.Minio.Instances as Import ()
import System.Clock.Instances as Import ()
import Data.Word.Word24.Instances as Import ()

import Crypto.Hash as Import (Digest, SHA3_256, SHA3_512)
import Crypto.Random as Import (ChaChaDRG, Seed)

import Control.Lens as Import
  hiding ( (<.>)
         , universe
         , cons, uncons, snoc, unsnoc, (<|)
         , Index, index, (<.), (.>)
         )
import Control.Lens.Extras as Import (is)
import Data.Set.Lens as Import

import Control.Arrow as Import (left, right, Kleisli(..))

import Data.Encoding as Import (DynEncoding, decodeLazyByteString, encodeLazyByteString)
import Data.Encoding.UTF8 as Import (UTF8(UTF8))

import GHC.TypeLits as Import (KnownSymbol)

import Data.Word.Word24 as Import


import Control.Monad.Trans.RWS (RWST)

import qualified Yesod.Auth as Yesod
import GHC.Stack

type MForm m = RWST (Maybe (Env, FileEnv), HandlerSite m, [Lang]) Enctype Ints m

type WeekDay = DayOfWeek

requireAuthId :: (MonadHandler m, YesodAuth (HandlerSite m), HasCallStack) => m (AuthId (HandlerSite m))
requireAuthId = do
  $logDebugS "requireAuthId" . pack $ prettyCallStack callStack
  Yesod.requireAuthId