Use file-embed-lzma

Author: phadej

servant-swagger-ui.cabal

@@ -97,34 +97,28 @@ library
 
   build-depends:
       base              >=4.7      && <4.12
-    , base-compat       >=0.9.3    && <0.10
     , blaze-markup      >=0.7.0.2  && <0.9
     , bytestring        >=0.10.4.0 && <0.11
-    , directory         >=1.2.1.0  && <1.4
-    , filepath          >=1.3.0.2  && <1.5
+    , file-embed-lzma   >=0        && <0.1
     , http-media        >=0.6.2    && <0.8
-    , lzma              >=0.0.0.3  && <0.1
     , servant           >=0.4.4.5  && <0.14
     , servant-blaze     >=0.4.4.5  && <0.9
     , servant-server    >=0.4.4.5  && <0.14
     , servant-swagger   >=1.0.3    && <1.2
     , swagger2          >=2.0.1    && <2.3
-    , template-haskell  >=2.9      && <2.14
     , text              >=1.2.0.6  && <1.3
-    , th-lift-instances >=0.1.11   && <0.2
-    , transformers      >=0.3      && <0.6
     , wai-app-static    >=3.0.1.1  && <3.2
   if flag(servant-0-5)
     build-depends:
         servant              >=0.5
+      , transformers         >=0.3 && <0.6
       , transformers-compat  >=0.3 && <0.6
   else
     build-depends:
         servant                       <0.5
       , either
   exposed-modules:
       Servant.Swagger.UI
-      Servant.Swagger.UI.Internal
   default-language: Haskell2010
 
 test-suite example

src/Servant/Swagger/UI.hs

@@ -71,11 +71,11 @@ module Servant.Swagger.UI (
 
 import Data.ByteString                (ByteString)
 import Data.Swagger                   (Swagger)
+import FileEmbedLzma
 import GHC.TypeLits                   (KnownSymbol, Symbol, symbolVal)
 import Network.Wai.Application.Static (embeddedSettings, staticApp)
 import Servant
 import Servant.HTML.Blaze             (HTML)
-import Servant.Swagger.UI.Internal
 import Text.Blaze                     (ToMarkup (..))
 
 import qualified Data.Text as T
@@ -192,16 +192,16 @@ swaggerUiIndexTemplate :: T.Text
 swaggerUiIndexTemplate = $(embedText "index.html.tmpl")
 
 swaggerUiFiles :: [(FilePath, ByteString)]
-swaggerUiFiles = $(mkRecursiveEmbedded "swagger-ui-dist-3.9.1")
+swaggerUiFiles = $(embedRecursiveDir "swagger-ui-dist-3.9.1")
 
 jensolegIndexTemplate :: T.Text
 jensolegIndexTemplate = $(embedText "jensoleg.index.html.tmpl")
 
 jensolegFiles :: [(FilePath, ByteString)]
-jensolegFiles = $(mkRecursiveEmbedded "jensoleg-dist")
+jensolegFiles = $(embedRecursiveDir "jensoleg-dist")
 
 redocIndexTemplate :: T.Text
-redocIndexTemplate = $(embedStringFile "redoc.index.html.tmpl")
+redocIndexTemplate = $(embedText "redoc.index.html.tmpl")
 
 redocFiles :: [(FilePath, ByteString)]
-redocFiles = $(mkRecursiveEmbedded "redoc-dist")
+redocFiles = $(embedRecursiveDir "redoc-dist")