src/Store/Debug.hs


1
2
3
4
5
6
7
8
9
10

module Store.Debug
  ( debug,
  )
where

import Debug.Trace (trace)
import Text.Printf (printf)

debug :: Show a => String -> a -> a
debug s x = trace (printf "%s: %s" s (show x)) x