application/x-wavpack ==> audio/x-wavpack

darcs-hash:20081109172600-62b54-c1d3d1ebc1f3187eb022f7c74ec8f65c295054a8.gz

diff --git a/.boring b/.boring
index 763a6e67136955ee2b7f39989bbe3046816aaecc..8b1c44a45f69ff47f1f295ca9a88c8634238cd4b 100644 (file)
--- a/.boring
+++ b/.boring
@@ -53,6 +53,7 @@
 ^Setup$
 ^\.setup-config$
 ^.installed-pkg-config$
+^data/CompileMimeTypes$
 
 ^examples/HelloWorld$
 ^examples/Implanted$

diff --git a/Lucu.cabal b/Lucu.cabal
index 9a001559da1582cd4e3c5db40a414e25f30292cd..a20a1b5a40c8442ed2c21453fd363e6149f3939a 100644 (file)
--- a/Lucu.cabal
+++ b/Lucu.cabal
@@ -7,7 +7,7 @@ Description:
         used to create an efficient web-based application without
         messing around FastCGI. It is also intended to be run behind a
         reverse-proxy so it doesn't have some facilities like logging,
-        client filtering and so on.
+        client filtering or such like.
 Version: 0.1
 License: PublicDomain
 License-File: COPYING

diff --git a/NEWS b/NEWS
index 2d38374f409b01537d4211b4af669b1c42373fff..d32fdefd8cfddc92608349ae4dcadf31ac497833 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,2 +1,7 @@
 Changes from 0.1 to ???
 -----------------------
+* data/mime.types:
+    - Deleted application/x-wavpack
+    - Deleted application/x-wavpack-correction
+    - Added audio/x-wavpack
+    - Added audio/x-wavpack-correction

diff --git a/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs b/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs
index 5d02ade46d99bd842d118446833201c791a2ce1e..d6add2bfebd039f8a4c706a71c61cc02813fdb36 100644 (file)
--- a/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs
+++ b/Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs
@@ -168,11 +168,10 @@ defaultExtensionMap
        ("wmls", read "text/vnd.wap.wmlscript"),
        ("wmlsc", read "application/vnd.wap.wmlscriptc"),
        ("wmv", read "video/x-ms-asf"), ("wrl", read "model/vrml"),
-       ("wv", read "application/x-wavpack"),
-       ("wvc", read "application/x-wavpack-correction"),
-       ("wvp", read "application/x-wavpack"),
-       ("xbm", read "image/x-xbitmap"), ("xcf", read "image/x-xcf"),
-       ("xht", read "application/xhtml+xml"),
+       ("wv", read "audio/x-wavpack"),
+       ("wvc", read "audio/x-wavpack-correction"),
+       ("wvp", read "audio/x-wavpack"), ("xbm", read "image/x-xbitmap"),
+       ("xcf", read "image/x-xcf"), ("xht", read "application/xhtml+xml"),
        ("xhtml", read "application/xhtml+xml"),
        ("xls", read "application/vnd.ms-excel"),
        ("xm", read "audio/x-mod"), ("xml", read "application/xml"),

diff --git a/data/Makefile b/data/Makefile
index ab7e1e33baed1c9bf946e6aad1ca56799a77674b..584c8d6c0053d87334ba3870a5604eb764c80534 100644 (file)
--- a/data/Makefile
+++ b/data/Makefile
@@ -1,2 +1,5 @@
-../Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs: mime.types
-       ./CompileMimeTypes.hs $< $@
+../Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs: mime.types CompileMimeTypes
+       ./CompileMimeTypes $< $@
+
+CompileMimeTypes: CompileMimeTypes.hs
+       ghc --make $@

diff --git a/data/mime.types b/data/mime.types
index 7d2fe08ef001efba23bccddb9a62057b0af3fca0..f65dd3246cb1ced4c40420aa283af982a4810431 100644 (file)
--- a/data/mime.types
+++ b/data/mime.types
@@ -62,8 +62,6 @@ application/x-troff-man               man
 application/x-troff-me         me
 application/x-troff-ms         ms
 application/x-ustar            ustar
-application/x-wavpack   wv wvp
-application/x-wavpack-correction        wvc
 application/x-wais-source      src
 application/xhtml+xml          xhtml xht
 application/xslt+xml           xslt
@@ -94,6 +92,8 @@ audio/x-ttafile             tta
 audio/x-voc                 voc
 audio/x-w64                 w64
 audio/x-wav                    wav
+audio/x-wavpack   wv wvp
+audio/x-wavpack-correction        wvc
 chemical/x-pdb                 pdb
 chemical/x-xyz                 xyz
 image/bmp                      bmp