Embedded.hs

{-# LANGUAGE TemplateHaskell #-}

-- | Embed a swagger-ui distribution in Haskell.
module WebGear.Swagger.UI.Embedded (
  indexHtmlFile,
  uiAssetsDir,
) where

import Data.ByteString (ByteString)
import qualified Data.FileEmbed as FileEmbed

-- | Contents of index.html from a swagger-ui distribution
indexHtmlFile :: ByteString
indexHtmlFile = $(FileEmbed.embedFile "index.html")

-- | UI assets from a swagger-ui distribution indexed by their filename
uiAssetsDir :: [(FilePath, ByteString)]
uiAssetsDir = $(FileEmbed.embedDir "swagger-ui-5.10.5/dist")