+{-# LANGUAGE
+ QuasiQuotes
+ , UnicodeSyntax
+ #-}
+-- |The default extension map.
+module Network.HTTP.Lucu.MIMEType.DefaultExtensionMap
+ ( 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|