parsley-0.1.0.1: src/ghc/Parsley/Internal/Trace.hs

{-# LANGUAGE MultiParamTypeClasses #-}
{-|
Module      : Parsley.Internal.Trace
Description : Definition of `Trace` class for debugging internals
License     : BSD-3-Clause
Maintainer  : Jamie Willis
Stability   : stable

This module contains the defintion of the `Trace` class, used to print additional debug information
from the internals.

@since 0.1.0.0
-}
module Parsley.Internal.Trace (Trace, trace, traceShow) where

class Trace where
  trace :: String -> a -> a

traceShow :: (Trace, Show a) => a -> a
traceShow = show >>= trace