espial-0.0.40: src/Handler/Docs.hs

{-# OPTIONS_GHC -fno-warn-unused-matches #-}

module Handler.Docs where

import Import

getDocsSearchR :: Handler Html
getDocsSearchR = do
  app <- getYesod
  muser <- fmap entityVal <$> maybeAuth
  let lang = fromMaybe (appLanguageDefault (appSettings app)) (muser >>= userLanguage)
      t = \key -> appTranslate app lang (I18nKey key)
  popupLayout
    $(widgetFile "docs-search")