Add import for takeExtension to handle file type detection

This change enhances the staticFileHeaders function by allowing it to determine the Content-Type based on file extensions, improving the handling of static files served by the application.

Author: seantomburke

src/Monocle/Main.hs

@@ -29,6 +29,7 @@ import Prometheus.Metric.GHC (ghcMetrics)
 import Servant
 import Servant.Auth.Server (CookieSettings (..), cookieXsrfSetting, defaultCookieSettings, defaultJWTSettings)
 import System.Directory qualified
+import System.FilePath (takeExtension)
 
 import Effectful qualified as E
 import Effectful.Concurrent.MVar qualified as E
@@ -65,7 +66,7 @@ mkStaticMiddleware publicUrl title webAppPath = do
 
   -- Content-Type for static files
   staticFileHeaders path =
-    [ 
+    [
       ( hContentType
       , case takeExtension path of
           ".css" -> "text/css"