@@ -303,7 +303,13 @@ defaultDirListing :: StaticDirListing
303defaultDirListing = StaticDirListing defaultListing []
303defaultDirListing = StaticDirListing defaultListing []
305-- IO is for development mode
305-- IO is for development mode
307+-- FIXME: Greg: Is the idea with ETag that an implementation could cache the
308+-- hashes at compile time and then not need to recompute them? It might make
309+-- more sense to include that as part of the File datatype itself. If we do
310+-- something like that, would it be possible to get rid of CacheSettings
307type CheckHashParam = (File -> S8.ByteString -> Bool) -- FIXME Greg: Can you explain the purposes of the parameters here?
313type CheckHashParam = (File -> S8.ByteString -> Bool) -- FIXME Greg: Can you explain the purposes of the parameters here?
308data CacheSettings = NoCache | Forever CheckHashParam | ETag (File -> IO (Maybe S8.ByteString))
314data CacheSettings = NoCache | Forever CheckHashParam | ETag (File -> IO (Maybe S8.ByteString))