]> gitweb @ CieloNegro.org - Lucu.git/blobdiff - Network/HTTP/Lucu/MIMEType/DefaultExtensionMap.hs
DefaultExtensionMap is now generated with TH.
[Lucu.git] / Network / HTTP / Lucu / MIMEType / DefaultExtensionMap.hs
index 642afb2c58f5462fbb4418dd4eea74bd657bd082..c471da3b3e8abd7ad39142c7c2ead488b495c546 100644 (file)
-{- !!! WARNING !!!
-   This file is automatically generated from data/mime.types.
-   DO NOT EDIT BY HAND OR YOU WILL REGRET -}
-
+{-# LANGUAGE
+    QuasiQuotes
+  , UnicodeSyntax
+  #-}
+-- |The default extension map.
 module Network.HTTP.Lucu.MIMEType.DefaultExtensionMap
-       (defaultExtensionMap) where
-import Network.HTTP.Lucu.MIMEType
-import qualified Data.Map as M
-import Data.Map (Map)
-defaultExtensionMap :: Map String MIMEType
-defaultExtensionMap
-  = M.fromList
-      [("3gp", "application" +/+ "x-3gp"), ("669", "audio" +/+ "x-mod"),
-       ("Z", "application" +/+ "x-compress"),
-       ("a", "application" +/+ "x-ar"), ("ac3", "audio" +/+ "x-ac3"),
-       ("ai", "application" +/+ "postscript"),
-       ("aif", "audio" +/+ "x-aiff"), ("aifc", "audio" +/+ "x-aiff"),
-       ("aiff", "audio" +/+ "x-aiff"), ("amf", "audio" +/+ "x-mod"),
-       ("anx", "application" +/+ "ogg"),
-       ("ape", "application" +/+ "x-ape"), ("asc", "text" +/+ "plain"),
-       ("asf", "video" +/+ "x-ms-asf"),
-       ("atom", "application" +/+ "atom+xml"), ("au", "audio" +/+ "x-au"),
-       ("avi", "video" +/+ "x-msvideo"),
-       ("bcpio", "application" +/+ "x-bcpio"),
-       ("bin", "application" +/+ "octet-stream"),
-       ("bmp", "image" +/+ "bmp"), ("bz2", "application" +/+ "x-bzip"),
-       ("cabal", "text" +/+ "x-cabal"),
-       ("cdf", "application" +/+ "x-netcdf"), ("cgm", "image" +/+ "cgm"),
-       ("class", "application" +/+ "octet-stream"),
-       ("cpio", "application" +/+ "x-cpio"),
-       ("cpt", "application" +/+ "mac-compactpro"),
-       ("csh", "application" +/+ "x-csh"), ("css", "text" +/+ "css"),
-       ("dcr", "application" +/+ "x-director"),
-       ("dif", "video" +/+ "x-dv"),
-       ("dir", "application" +/+ "x-director"),
-       ("djv", "image" +/+ "vnd.djvu"), ("djvu", "image" +/+ "vnd.djvu"),
-       ("dll", "application" +/+ "octet-stream"),
-       ("dmg", "application" +/+ "octet-stream"),
-       ("dms", "application" +/+ "octet-stream"),
-       ("doc", "application" +/+ "msword"), ("dsm", "audio" +/+ "x-mod"),
-       ("dtd", "application" +/+ "xml-dtd"), ("dv", "video" +/+ "x-dv"),
-       ("dvi", "application" +/+ "x-dvi"),
-       ("dxr", "application" +/+ "x-director"),
-       ("eps", "application" +/+ "postscript"),
-       ("etx", "text" +/+ "x-setext"),
-       ("exe", "application" +/+ "octet-stream"),
-       ("ez", "application" +/+ "andrew-inset"),
-       ("far", "audio" +/+ "x-mod"), ("flac", "audio" +/+ "x-flac"),
-       ("flc", "video" +/+ "x-fli"), ("fli", "video" +/+ "x-fli"),
-       ("flv", "video" +/+ "x-flv"), ("gdm", "audio" +/+ "x-mod"),
-       ("gif", "image" +/+ "gif"), ("gram", "application" +/+ "srgs"),
-       ("grxml", "application" +/+ "srgs+xml"),
-       ("gtar", "application" +/+ "x-gtar"),
-       ("gz", "application" +/+ "x-gzip"),
-       ("hdf", "application" +/+ "x-hdf"),
-       ("hi", "application" +/+ "octet-stream"),
-       ("hqx", "application" +/+ "mac-binhex40"),
-       ("hs", "text" +/+ "x-haskell"), ("htm", "text" +/+ "html"),
-       ("html", "text" +/+ "html"),
-       ("ice", "x-conference" +/+ "x-cooltalk"),
-       ("ico", "image" +/+ "x-icon"), ("ics", "text" +/+ "calendar"),
-       ("ief", "image" +/+ "ief"), ("ifb", "text" +/+ "calendar"),
-       ("iff", "audio" +/+ "x-svx"), ("iges", "model" +/+ "iges"),
-       ("igs", "model" +/+ "iges"), ("ilbc", "audio" +/+ "iLBC-sh"),
-       ("imf", "audio" +/+ "x-mod"), ("it", "audio" +/+ "x-mod"),
-       ("jng", "image" +/+ "x-jng"),
-       ("jnlp", "application" +/+ "x-java-jnlp-file"),
-       ("jp2", "image" +/+ "jp2"), ("jpe", "image" +/+ "jpeg"),
-       ("jpeg", "image" +/+ "jpeg"), ("jpg", "image" +/+ "jpeg"),
-       ("js", "application" +/+ "x-javascript"),
-       ("kar", "audio" +/+ "midi"),
-       ("latex", "application" +/+ "x-latex"),
-       ("lha", "application" +/+ "octet-stream"),
-       ("lzh", "application" +/+ "octet-stream"),
-       ("m3u", "audio" +/+ "x-mpegurl"), ("m4a", "audio" +/+ "mp4a-latm"),
-       ("m4p", "audio" +/+ "mp4a-latm"),
-       ("m4u", "video" +/+ "vnd.mpegurl"), ("m4v", "video" +/+ "mpeg4"),
-       ("mac", "image" +/+ "x-macpaint"),
-       ("man", "application" +/+ "x-troff-man"),
-       ("mathml", "application" +/+ "mathml+xml"),
-       ("me", "application" +/+ "x-troff-me"),
-       ("med", "audio" +/+ "x-mod"), ("mesh", "model" +/+ "mesh"),
-       ("mid", "audio" +/+ "midi"), ("midi", "audio" +/+ "midi"),
-       ("mif", "application" +/+ "vnd.mif"),
-       ("mka", "video" +/+ "x-matroska"),
-       ("mkv", "video" +/+ "x-matroska"), ("mng", "video" +/+ "x-mng"),
-       ("mod", "audio" +/+ "x-mod"), ("mov", "video" +/+ "quicktime"),
-       ("movie", "video" +/+ "x-sgi-movie"), ("mp2", "audio" +/+ "mpeg"),
-       ("mp3", "audio" +/+ "mpeg"), ("mp4", "video" +/+ "mp4"),
-       ("mpc", "audio" +/+ "x-musepack"), ("mpe", "video" +/+ "mpeg"),
-       ("mpeg", "video" +/+ "mpeg"), ("mpg", "video" +/+ "mpeg"),
-       ("mpga", "audio" +/+ "mpeg"),
-       ("ms", "application" +/+ "x-troff-ms"),
-       ("msh", "model" +/+ "mesh"), ("mtm", "audio" +/+ "x-mod"),
-       ("mve", "video" +/+ "x-mve"), ("mxu", "video" +/+ "vnd.mpegurl"),
-       ("nar", "application" +/+ "x-nar"),
-       ("nc", "application" +/+ "x-netcdf"),
-       ("nist", "audio" +/+ "x-nist"), ("nuv", "video" +/+ "x-nuv"),
-       ("o", "application" +/+ "octet-stream"),
-       ("oda", "application" +/+ "oda"), ("ogg", "application" +/+ "ogg"),
-       ("ogm", "application" +/+ "ogg"), ("okt", "audio" +/+ "x-mod"),
-       ("paf", "audio" +/+ "x-paris"),
-       ("pbm", "image" +/+ "x-portable-bitmap"),
-       ("pct", "image" +/+ "pict"), ("pdb", "chemical" +/+ "x-pdb"),
-       ("pdf", "application" +/+ "pdf"),
-       ("pgm", "image" +/+ "x-portable-graymap"),
-       ("pgn", "application" +/+ "x-chess-pgn"),
-       ("pic", "image" +/+ "pict"), ("pict", "image" +/+ "pict"),
-       ("png", "image" +/+ "png"),
-       ("pnm", "image" +/+ "x-portable-anymap"),
-       ("pnt", "image" +/+ "x-macpaint"),
-       ("pntg", "image" +/+ "x-macpaint"),
-       ("ppm", "image" +/+ "x-portable-pixmap"),
-       ("ppt", "application" +/+ "vnd.ms-powerpoint"),
-       ("ps", "application" +/+ "postscript"),
-       ("qif", "image" +/+ "x-quicktime"),
-       ("qt", "video" +/+ "quicktime"),
-       ("qti", "image" +/+ "x-quicktime"),
-       ("qtif", "image" +/+ "x-quicktime"),
-       ("ra", "audio" +/+ "x-pn-realaudio"),
-       ("ram", "text" +/+ "uri-list"), ("rar", "application" +/+ "x-rar"),
-       ("ras", "image" +/+ "x-sun-raster"),
-       ("rdf", "application" +/+ "rdf+xml"), ("rgb", "image" +/+ "x-rgb"),
-       ("rm", "application" +/+ "vnd.rn-realmedia"),
-       ("roff", "application" +/+ "x-troff"), ("rtf", "text" +/+ "rtf"),
-       ("rtx", "text" +/+ "richtext"), ("s3m", "audio" +/+ "x-mod"),
-       ("sam", "audio" +/+ "x-mod"), ("sds", "audio" +/+ "x-sds"),
-       ("sf", "audio" +/+ "x-ircam"), ("sgm", "text" +/+ "sgml"),
-       ("sgml", "text" +/+ "sgml"), ("sh", "application" +/+ "x-sh"),
-       ("shar", "application" +/+ "x-shar"),
-       ("shn", "audio" +/+ "x-shorten"), ("sid", "audio" +/+ "x-sid"),
-       ("silo", "model" +/+ "mesh"),
-       ("sit", "application" +/+ "x-stuffit"),
-       ("skd", "application" +/+ "x-koan"),
-       ("skm", "application" +/+ "x-koan"),
-       ("skp", "application" +/+ "x-koan"),
-       ("skt", "application" +/+ "x-koan"),
-       ("smi", "application" +/+ "smil"),
-       ("smil", "application" +/+ "smil"), ("snd", "audio" +/+ "x-au"),
-       ("so", "application" +/+ "octet-stream"),
-       ("spc", "application" +/+ "x-spc"),
-       ("spl", "application" +/+ "x-futuresplash"),
-       ("src", "application" +/+ "x-wais-source"),
-       ("stm", "audio" +/+ "x-mod"), ("stx", "audio" +/+ "x-mod"),
-       ("sv4cpio", "application" +/+ "x-sv4cpio"),
-       ("sv4crc", "application" +/+ "x-sv4crc"),
-       ("svg", "image" +/+ "svg+xml"), ("svx", "audio" +/+ "x-svx"),
-       ("swf", "application" +/+ "x-shockwave-flash"),
-       ("swfl", "application" +/+ "x-shockwave-flash"),
-       ("t", "application" +/+ "x-troff"),
-       ("tar", "application" +/+ "x-tar"),
-       ("tbz", "application" +/+ "x-bzip"),
-       ("tcl", "application" +/+ "x-tcl"),
-       ("tex", "application" +/+ "x-tex"),
-       ("texi", "application" +/+ "x-texinfo"),
-       ("texinfo", "application" +/+ "x-texinfo"),
-       ("tgz", "application" +/+ "x-gzip"), ("tif", "image" +/+ "tiff"),
-       ("tiff", "image" +/+ "tiff"), ("tr", "application" +/+ "x-troff"),
-       ("ts", "video" +/+ "mpegts"),
-       ("tsv", "text" +/+ "tab-separated-values"),
-       ("tta", "audio" +/+ "x-ttafile"), ("txt", "text" +/+ "plain"),
-       ("ult", "audio" +/+ "x-mod"),
-       ("ustar", "application" +/+ "x-ustar"),
-       ("vcd", "application" +/+ "x-cdlink"),
-       ("voc", "audio" +/+ "x-voc"), ("vrml", "model" +/+ "vrml"),
-       ("vxml", "application" +/+ "voicexml+xml"),
-       ("w64", "audio" +/+ "x-w64"), ("wav", "audio" +/+ "x-wav"),
-       ("wbmp", "image" +/+ "vnd.wap.wbmp"),
-       ("wbxml", "application" +/+ "vnd.wap.wbxml"),
-       ("wm", "video" +/+ "x-ms-asf"), ("wma", "video" +/+ "x-ms-asf"),
-       ("wml", "text" +/+ "vnd.wap.wml"),
-       ("wmlc", "application" +/+ "vnd.wap.wmlc"),
-       ("wmls", "text" +/+ "vnd.wap.wmlscript"),
-       ("wmlsc", "application" +/+ "vnd.wap.wmlscriptc"),
-       ("wmv", "video" +/+ "x-ms-asf"), ("wrl", "model" +/+ "vrml"),
-       ("wv", "application" +/+ "x-wavpack"),
-       ("wvc", "application" +/+ "x-wavpack-correction"),
-       ("wvp", "application" +/+ "x-wavpack"),
-       ("xbm", "image" +/+ "x-xbitmap"), ("xcf", "image" +/+ "x-xcf"),
-       ("xht", "application" +/+ "xhtml+xml"),
-       ("xhtml", "application" +/+ "xhtml+xml"),
-       ("xls", "application" +/+ "vnd.ms-excel"),
-       ("xm", "audio" +/+ "x-mod"), ("xml", "application" +/+ "xml"),
-       ("xpm", "image" +/+ "x-xpixmap"), ("xsl", "application" +/+ "xml"),
-       ("xslt", "application" +/+ "xslt+xml"),
-       ("xul", "application" +/+ "vnd.mozilla.xul+xml"),
-       ("xwd", "image" +/+ "x-xwindowdump"),
-       ("xyz", "chemical" +/+ "x-xyz"), ("zip", "application" +/+ "zip")]
+    ( defaultExtensionMap
+    )
+    where
+import Network.HTTP.Lucu.MIMEType.Guess
+
+-- |'defaultExtensionMap' contains contains every possible pairs of an
+-- extension and a MIME Type.
+defaultExtensionMap :: ExtMap
+{-# NOINLINE defaultExtensionMap #-}
+defaultExtensionMap = [extMap|
+# MIME type                    Extensions
+application/andrew-inset       ez
+application/atom+xml           atom
+application/mac-binhex40       hqx
+application/mac-compactpro     cpt
+application/mathml+xml         mathml
+application/msword             doc
+application/octet-stream       bin dms lha lzh exe class so dll dmg hi o
+application/oda                        oda
+application/ogg                        anx ogg ogm
+application/pdf                        pdf
+application/postscript         ai eps ps
+application/rdf+xml            rdf
+application/smil               smi smil
+application/srgs               gram
+application/srgs+xml           grxml
+application/vnd.mif            mif
+application/vnd.mozilla.xul+xml        xul
+application/vnd.ms-excel       xls
+application/vnd.ms-powerpoint  ppt
+application/vnd.rn-realmedia   rm
+application/vnd.wap.wbxml      wbxml
+application/vnd.wap.wmlc       wmlc
+application/vnd.wap.wmlscriptc wmlsc
+application/voicexml+xml       vxml
+application/x-3gp              3gp
+application/x-ape              ape
+application/x-ar               a
+application/x-bcpio            bcpio
+application/x-bzip             bz2 tbz
+application/x-cdlink           vcd
+application/x-chess-pgn                pgn
+application/x-compress         Z
+application/x-cpio             cpio
+application/x-csh              csh
+application/x-director         dcr dir dxr
+application/x-dvi              dvi
+application/x-futuresplash     spl
+application/x-gtar             gtar
+application/x-gzip             gz tgz
+application/x-hdf              hdf
+application/x-javascript       js
+application/x-java-jnlp-file   jnlp
+application/x-koan             skp skd skt skm
+application/x-latex            latex
+application/x-nar              nar
+application/x-netcdf           nc cdf
+application/x-rar              rar
+application/x-sh               sh
+application/x-shar             shar
+application/x-shockwave-flash  swf swfl
+application/x-spc              spc
+application/x-stuffit          sit
+application/x-sv4cpio          sv4cpio
+application/x-sv4crc           sv4crc
+application/x-tar              tar
+application/x-tcl              tcl
+application/x-tex              tex
+application/x-texinfo          texinfo texi
+application/x-troff            t tr roff
+application/x-troff-man                man
+application/x-troff-me         me
+application/x-troff-ms         ms
+application/x-ustar            ustar
+application/x-wais-source      src
+application/xhtml+xml          xhtml xht
+application/xslt+xml           xslt
+application/xml                        xml xsl
+application/xml-dtd            dtd
+application/zip                        zip
+audio/basic                    au snd
+audio/iLBC-sh                  ilbc
+audio/midi                     mid midi kar
+audio/mp4a-latm                        m4a m4p
+audio/mpeg                     mpga mp2 mp3
+audio/x-ac3                    ac3
+audio/x-aiff                   aif aiff aifc
+audio/x-ircam                  sf
+audio/x-flac                   flac
+audio/x-mod                    669 amf dsm gdm far imf it med mod mtm okt sam s3m stm stx ult xm
+audio/x-mpegurl                        m3u
+audio/x-musepack               mpc
+audio/x-nist                   nist
+audio/x-paris                  paf
+audio/x-pn-realaudio           ram ra
+audio/x-sds                    sds
+audio/x-shorten                        shn
+audio/x-sid                    sid
+audio/x-svx                    iff svx
+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
+image/cgm                      cgm
+image/gif                      gif
+image/ief                      ief
+image/jpeg                     jpeg jpg jpe
+image/jp2                      jp2
+image/pict                     pict pic pct
+image/png                      png
+image/svg+xml                  svg
+image/tiff                     tiff tif
+image/vnd.djvu                 djvu djv
+image/vnd.wap.wbmp             wbmp
+image/x-sun-raster             ras
+image/x-macpaint               pntg pnt mac
+image/x-icon                   ico
+image/x-jng                    jng
+image/x-portable-anymap                pnm
+image/x-portable-bitmap                pbm
+image/x-portable-graymap       pgm
+image/x-portable-pixmap                ppm
+image/x-quicktime              qtif qti qif
+image/x-rgb                    rgb
+image/x-xbitmap                        xbm
+image/x-xcf                    xcf
+image/x-xpixmap                        xpm
+image/x-xwindowdump            xwd
+model/iges                     igs iges
+model/mesh                     msh mesh silo
+model/vrml                     wrl vrml
+text/calendar                  ics ifb
+text/css                       css
+text/html                      html htm
+text/plain                     asc txt
+text/richtext                  rtx
+text/rtf                       rtf
+text/sgml                      sgml sgm
+text/tab-separated-values      tsv
+text/uri-list                  uni unis uri uris
+text/vnd.wap.wml               wml
+text/vnd.wap.wmlscript         wmls
+text/x-c                       c h
+text/x-c++                     cc cpp cxx hpp hxx
+text/x-cabal                   cabal
+text/x-haskell                 hs hsc lhs
+text/x-setext                  etx
+video/mp4                      mp4
+video/mpeg                     mpeg mpg mpe
+video/mpeg4                    m4v
+video/mpegts                   ts
+video/quicktime                        qt mov
+video/vnd.mpegurl              mxu m4u
+video/x-dv                     dv dif
+video/x-fli                    flc fli
+video/x-flv                    flv
+video/x-matroska               mkv  mka
+video/x-ms-asf                 asf wm wma wmv
+video/x-msvideo                        avi
+video/x-mng                    mng
+video/x-mve                    mve
+video/x-nuv                    nuv
+video/x-sgi-movie              movie
+x-conference/x-cooltalk                ice
+|]