From 5c2f21e06ebc2c3be936efadfe92872fecd82db9 Mon Sep 17 00:00:00 2001
From: "Iavor S. Diatchki" <diatchki@galois.com>
Date: Thu, 4 Oct 2012 16:39:28 -0700
Subject: Disable `tracing` by default.

To re-enable, turn on tracing in the parser file.
---
 Codec/MIME/Parse.hs | 14 +++++++++++---
 mime.cabal          |  2 +-
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/Codec/MIME/Parse.hs b/Codec/MIME/Parse.hs
index 6108441..dfe2115 100644
--- a/Codec/MIME/Parse.hs
+++ b/Codec/MIME/Parse.hs
@@ -30,6 +30,14 @@ import Data.Maybe
 import Data.List
 import Debug.Trace ( trace )
 
+enableTrace :: Bool
+enableTrace = False
+
+doTrace :: String -> b -> b
+doTrace | enableTrace = trace
+        | otherwise   = \_ x -> x
+
+
 parseMIMEBody :: [(String,String)] -> String -> MIMEValue
 parseMIMEBody headers_in body = result { mime_val_headers = headers }
   where
@@ -117,7 +125,7 @@ parseHeaders str =
 parseMultipart :: Type -> String -> (MIMEValue, String)
 parseMultipart mty body =
   case lookupField "boundary" (mimeParams mty) of
-    Nothing -> trace ("Multipart mime type, " ++ showType mty ++
+    Nothing -> doTrace ("Multipart mime type, " ++ showType mty ++
       ", has no required boundary parameter. Defaulting to text/plain") $
       (nullMIMEValue{ mime_val_type = defaultType
                     , mime_val_disp = Nothing
@@ -169,7 +177,7 @@ parseContentType str =
                Just Type { mimeType = toType maj as
                          , mimeParams = parseParams (dropWhile isHSpace bs)
                          }
-       _ -> trace ("unable to parse content-type: " ++ show str) $ Nothing
+       _ -> doTrace ("unable to parse content-type: " ++ show str) $ Nothing
  where
   toType a b = case lookupField (map toLower a) mediaTypes of
                  Just ctor -> ctor b
@@ -191,7 +199,7 @@ parseParams (';':xs) =
        where
         nm = map toLower nm_raw
 
-parseParams cs = trace ("Codec.MIME.Parse.parseParams: curious param value -- " ++ show cs) []
+parseParams cs = doTrace ("Codec.MIME.Parse.parseParams: curious param value -- " ++ show cs) []
 
 mediaTypes :: [(String, String -> MIMEType)]
 mediaTypes =
diff --git a/mime.cabal b/mime.cabal
index 2b9bf9a..eb4cc56 100644
--- a/mime.cabal
+++ b/mime.cabal
@@ -1,5 +1,5 @@
 name:               mime
-version:            0.3.3.2
+version:            0.3.4
 synopsis:           Working with MIME types.
 description:        Working with MIME types.
 category:           Codec
-- 
cgit v1.2.3