X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FConfig.hs;h=3d256ed0513e4de0a8587411f879de9e5e70e94f;hb=ba87ca171f0a058f501655ffa6f6e845f2f800a6;hp=49622b2371ff1ff2319ba2c5c4efe32204a1b7b2;hpb=858129cb755aa09da2b7bd758efb8519f2c89103;p=Lucu.git diff --git a/Network/HTTP/Lucu/Config.hs b/Network/HTTP/Lucu/Config.hs index 49622b2..3d256ed 100644 --- a/Network/HTTP/Lucu/Config.hs +++ b/Network/HTTP/Lucu/Config.hs @@ -5,11 +5,8 @@ module Network.HTTP.Lucu.Config ) where -import qualified Data.Map as M -import Data.Map (Map) import Network import Network.BSD -import Network.HTTP.Lucu.MIMEType import Network.HTTP.Lucu.MIMEType.Guess import Network.HTTP.Lucu.MIMEType.DefaultExtensionMap import System.IO.Unsafe @@ -49,9 +46,9 @@ data Config = Config { -- guessed only by file name. -- -- Guessing by file magic is indeed a wonderful idea but that is - -- not implemented (yet). But hey, don't you think it's better a - -- file system got a MIME Type as a part of inode? Or it might be - -- a good idea to use GnomeVFS + -- not implemented (yet). But, don't you think it's better a file + -- system got a MIME Type as a part of inode? Or it might be a + -- good idea to use GnomeVFS -- () -- instead of vanilla FS. , cnfExtToMIMEType :: !ExtMap