2 {-# LANGUAGE OverloadedStrings #-}
5 module Mate.Debug where
7 {- we cannot use `PrintfType' from Text.Printf, as it isn't exported.
8 - so we implement a `VarArgsFake' here.
9 - http://www.haskell.org/haskellwiki/Varargs -}
10 class VarArgsFake t where
11 varFake :: [String] -> t
13 instance VarArgsFake (IO a) where
14 varFake _ = return undefined
16 instance (Show a, VarArgsFake r) => VarArgsFake (a -> r) where
17 varFake _ _ = varFake []
19 printfFake :: String -> (VarArgsFake t) => t
20 printfFake _ = varFake []
23 -- see counterpart at `debug.h'
25 printfJit :: String -> (VarArgsFake t) => t
26 printfJit = printfFake
30 printfBb :: String -> (VarArgsFake t) => t
35 printfMp :: String -> (VarArgsFake t) => t
40 printfCp :: String -> (VarArgsFake t) => t
45 printfStr :: String -> (VarArgsFake t) => t
46 printfStr = printfFake