github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 07:25:44 +03:00
Code Issues Projects Releases Wiki Activity

Protolude has traceShowId now apparently.

Browse Source
This commit is contained in:
Rob Rix 2016-09-14 16:33:33 -04:00
parent 62196878fa
commit e4505a8be0
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Prologue.hs
View File

@ -1,7 +1,6 @@
module Prologue module Prologue
( module X ( module X
, lookup , lookup
, traceShowId
) where ) where
import Protolude as X import Protolude as X
@ -10,10 +9,3 @@ import Data.List (lookup)
import Control.Comonad.Trans.Cofree as X import Control.Comonad.Trans.Cofree as X
import Control.Monad.Trans.Free as X import Control.Monad.Trans.Free as X
import Control.Comonad as X import Control.Comonad as X
import qualified GHC.Show as P
import qualified Debug.Trace as T
{-# WARNING traceShowId "'traceShowId' remains in code" #-}
traceShowId :: P.Show a => a -> a
traceShowId a = T.trace (P.show a) a