aboutsummaryrefslogtreecommitdiff
path: root/frontend/RWSDebug.icl
blob: 98c5ed9b631bd227557ee37288a88bb1e69c16d6 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
implementation module RWSDebug

import Debug

show x
	=	debugShowWithOptions [DebugMaxChars 80, DebugMaxDepth 5] x

(->>) :: !.a !.b -> .a
(->>) value debugValue
	=	debugAfter debugValue show value

(<<-) :: .a !.b -> .a
(<<-) value debugValue
	=	debugBefore debugValue show value

<<->> :: !.a -> .a
<<->> value
	=	debugValue show value