Add trace
This commit is contained in:
parent
8b2181563a
commit
723ce8ef9f
|
@ -0,0 +1,2 @@
|
|||
dist-newstyle
|
||||
.envrc
|
|
@ -0,0 +1,9 @@
|
|||
{-# LANGUAGE DerivingVia #-}
|
||||
module Trace where
|
||||
|
||||
import Data.Functor.Contravariant (Op(..), Contravariant)
|
||||
import Data.Monoid (Ap(..))
|
||||
|
||||
newtype Trace m a = Trace { trace :: a -> m () }
|
||||
deriving Contravariant via Op (m ())
|
||||
deriving (Semigroup, Monoid) via Op (Ap m ()) a
|
Loading…
Reference in New Issue