casui-0.3: Casui/Debug.hs

module Casui.Debug where

{-
import Debug.Trace

tr :: Show a => a -> a
tr a = trace (show a) a

trf :: Show b => (a -> b) -> a -> a
trf f a = trace (show $ f a) a

traceCall :: String -> a -> a
traceCall = trace

trn :: Show a => String -> a -> a
trn s a = trace (s ++ show a) a

trm :: Monad m => String -> m ()
trm s = trace s $ return ()
-}

--{-
trace = flip const

tr :: Show a => a -> a
tr a = a

trf :: Show b => (a -> b) -> a -> a
trf f a = a

traceCall :: String -> a -> a
traceCall = flip const

trn :: Show a => String -> a -> a
trn s a = a

trm :: Monad m => String -> m ()
trm s = return ()
--}

{-# WARNING todo, Todo, something "Unfinished code (TODO)" #-}
todo = error "todo: not implemented"

data Todo

something = error "something is wrong"