eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

remove leftover debug code

Browse source
This commit is contained in:
Samuel Gélineau 2019-11-07 19:01:56 -05:00
parent 143091eb3f
commit 1f6d7d7ea8
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
servant-docs/src/Servant/Docs/Internal.hs
View file

@ -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'