Clean the superflous debug things

christian-marie · Dec 22, 2014 · e647e8f · e647e8f
1 parent 5519238
commit e647e8f
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/lib/Data/Aeson/Roundtrip.hs b/lib/Data/Aeson/Roundtrip.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE InstanceSigs      #-}
 {-# LANGUAGE LambdaCase        #-}
 {-# LANGUAGE OverloadedLists   #-}
 {-# LANGUAGE OverloadedStrings #-}
@@ -22,7 +21,6 @@ import Data.Scientific
 import Data.Text (Text)
 import Data.Vector ((!?))
 import qualified Data.Vector as V
-import Debug.Trace
 import Text.Roundtrip.Classes
 
 -- * Lenses, Prisms, and Isomorphisms.
@@ -141,7 +139,7 @@ instance ProductFunctor JsonBuilder where
         merge a (Array b) = Just . Array $ V.cons a b
         merge x Null = Just x
         merge Null x = Just x
-        merge x y = traceShow (x,y) Nothing
+        merge _ _ = Nothing
 
 instance Alternative JsonBuilder where
     -- Try the left first, then right.