projects
/
mate.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
hlint: use CamelCase for printf stuff
[mate.git]
/
Mate
/
Debug.hs
diff --git
a/Mate/Debug.hs
b/Mate/Debug.hs
index b5ee6896cd1c07bc513be8af6b59fe8d4c060a18..c03bfcc74316014f3f4fdc2d9d413bc3de5da046 100644
(file)
--- a/
Mate/Debug.hs
+++ b/
Mate/Debug.hs
@@
-16,32
+16,32
@@
instance VarArgsFake (IO a) where
instance (Show a, VarArgsFake r) => VarArgsFake (a -> r) where
varFake _ = \_ -> varFake []
instance (Show a, VarArgsFake r) => VarArgsFake (a -> r) where
varFake _ = \_ -> varFake []
-printf
_f
ake :: String -> (VarArgsFake t) => t
-printf
_f
ake _ = varFake []
+printf
F
ake :: String -> (VarArgsFake t) => t
+printf
F
ake _ = varFake []
-- see counterpart at `debug.h'
#ifndef DBG_JIT
-- see counterpart at `debug.h'
#ifndef DBG_JIT
-printf
_j
it :: String -> (VarArgsFake t) => t
-printf
_jit = printf_f
ake
+printf
J
it :: String -> (VarArgsFake t) => t
+printf
Jit = printfF
ake
#endif
#ifndef DBG_BB
#endif
#ifndef DBG_BB
-printf
_b
b :: String -> (VarArgsFake t) => t
-printf
_bb = printf_f
ake
+printf
B
b :: String -> (VarArgsFake t) => t
+printf
Bb = printfF
ake
#endif
#ifndef DBG_MP
#endif
#ifndef DBG_MP
-printf
_m
p :: String -> (VarArgsFake t) => t
-printf
_mp = printf_f
ake
+printf
M
p :: String -> (VarArgsFake t) => t
+printf
Mp = printfF
ake
#endif
#ifndef DBG_CP
#endif
#ifndef DBG_CP
-printf
_c
p :: String -> (VarArgsFake t) => t
-printf
_cp = printf_f
ake
+printf
C
p :: String -> (VarArgsFake t) => t
+printf
Cp = printfF
ake
#endif
#ifndef DBG_STR
#endif
#ifndef DBG_STR
-printf
_s
tr :: String -> (VarArgsFake t) => t
-printf
_str = printf_f
ake
+printf
S
tr :: String -> (VarArgsFake t) => t
+printf
Str = printfF
ake
#endif
#endif