Silence compile warning

haskell · Nov 1, 2019 · 70de659 · 70de659
1 parent 11136d3
commit 70de659
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/Distribution/Server/Features/StaticFiles.hs b/Distribution/Server/Features/StaticFiles.hs
@@ -75,10 +75,10 @@ staticFilesFeature ServerEnv{serverStaticDir, serverTemplatesMode}
       cacheControlWithoutETag staticResourceCacheControls
       serveDirectory DisableBrowsing [] serverStaticDir
 
-    serveStaticToplevelFile :: String -> FilePath -> ServerPartE Response
-    serveStaticToplevelFile mimetype filename = do
-      cacheControlWithoutETag staticResourceCacheControls
-      serveFile (asContentType mimetype) (serverStaticDir </> filename)
+--    serveStaticToplevelFile :: String -> FilePath -> ServerPartE Response
+--    serveStaticToplevelFile mimetype filename = do
+--      cacheControlWithoutETag staticResourceCacheControls
+--      serveFile (asContentType mimetype) (serverStaticDir </> filename)
 
     serveStaticTemplate :: String -> ServerPartE Response
     serveStaticTemplate = serveTemplate