From 1f6d7d7ea8aef0cb927e89e308dd99874bda9daa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Samuel=20G=C3=A9lineau?= Date: Thu, 7 Nov 2019 19:01:56 -0500 Subject: [PATCH] remove leftover debug code --- servant-docs/src/Servant/Docs/Internal.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs index c102007e..65394c4c 100644 --- a/servant-docs/src/Servant/Docs/Internal.hs +++ b/servant-docs/src/Servant/Docs/Internal.hs @@ -20,7 +20,6 @@ #include "overlapping-compat.h" module Servant.Docs.Internal where -import Debug.Trace import Prelude () import Prelude.Compat @@ -118,7 +117,7 @@ instance Semigroup API where instance Monoid API where API a1 b1 `mappend` API a2 b2 = API (a1 `mappend` a2) - (HM.unionWith combineAction b1 (traceShowId b2)) + (HM.unionWith combineAction b1 b2) mempty = API mempty mempty -- | An empty 'API'