From dfbf241202237b5b4033dbf781de5e10e0f919eb Mon Sep 17 00:00:00 2001
From: pho <pho@cielonegro.org>
Date: Mon, 10 Nov 2008 02:26:00 +0900
Subject: [PATCH] application/x-wavpack ==> audio/x-wavpack

darcs-hash:20081109172600-62b54-c1d3d1ebc1f3187eb022f7c74ec8f65c295054a8.gz
---
 .boring                                           | 1 +
 Lucu.cabal                                        | 2 +-
 NEWS                                              | 5 +++++
 Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs | 9 ++++-----
 data/Makefile                                     | 7 +++++--
 data/mime.types                                   | 4 ++--
 6 files changed, 18 insertions(+), 10 deletions(-)

diff --git a/.boring b/.boring
index 763a6e6..8b1c44a 100644
--- 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 9a00155..a20a1b5 100644
--- 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 2d38374..d32fdef 100644
--- 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 5d02ade..d6add2b 100644
--- 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 ab7e1e3..584c8d6 100644
--- 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 7d2fe08..f65dd32 100644
--- 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
-- 
2.40.0