update caching strategy

nieled · Aug 6, 2022 · f151735 · f151735
1 parent 0730d34
commit f151735
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/Adapter/HTTP/Web/Main.hs b/src/Adapter/HTTP/Web/Main.hs
@@ -32,8 +32,10 @@ import           Network.Wai.Middleware.Static  ( CacheContainer
                                                   )
                                                 , Options(cacheContainer)
                                                 , addBase
+                                                , defaultOptions
                                                 , initCaching
                                                 , staticPolicy'
+                                                , staticPolicyWithOptions
                                                 )
 import           Web.Scotty.Trans               ( ScottyError(..)
                                                 , ScottyT
@@ -69,8 +71,9 @@ routes
   -> ScottyT Text m ()
 routes cachingStrategy = do
   middleware $ gzip $ def { gzipFiles = GzipCompress }
-  middleware
-    $ staticPolicy' cachingStrategy (addBase "src/Adapter/HTTP/Web/static")
+  middleware $ staticPolicyWithOptions
+    defaultOptions { cacheContainer = cachingStrategy }
+    (addBase "src/Adapter/HTTP/Web/static")
 
   Auth.routes