semantic/src/Prologue.hs

module Prologue
( module X
, lookup
, traceShowId
, FilePath
) where

import Protolude as X
import Data.List (lookup)
import System.IO (FilePath)

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
Reformat the header. 2016-05-26 23:02:35 +03:00			`module Prologue`
			`( module X`
			`, lookup`
Add traceShowId to Prologue. 2016-05-26 23:02:45 +03:00			`, traceShowId`
Reformat the header. 2016-05-26 23:02:35 +03:00			`, FilePath`
			`) where`
Use Protolude via the Prologue module and add NoImplicitPrelude 2016-05-26 19:58:04 +03:00
			`import Protolude as X`
			`import Data.List (lookup)`
			`import System.IO (FilePath)`
Add traceShowId to Prologue. 2016-05-26 23:02:45 +03:00
			`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`