aboutsummaryrefslogtreecommitdiff
path: root/frontend/RWSDebug.icl
diff options
context:
space:
mode:
Diffstat (limited to 'frontend/RWSDebug.icl')
-rw-r--r--frontend/RWSDebug.icl18
1 files changed, 18 insertions, 0 deletions
diff --git a/frontend/RWSDebug.icl b/frontend/RWSDebug.icl
new file mode 100644
index 0000000..9d7639d
--- /dev/null
+++ b/frontend/RWSDebug.icl
@@ -0,0 +1,18 @@
+implementation module RWSDebug
+
+import Debug
+
+show
+ = debugShowWithOptions [] // [DebugMaxChars 80, DebugMaxDepth 5]
+
+(->>) :: !.a !.b -> .a
+(->>) value debugValue
+ = debugAfter debugValue show value
+
+(<<-) :: .a !.b -> .a
+(<<-) value debugValue
+ = debugBefore debugValue show value
+
+<<->> :: !.a -> .a
+<<->> value
+ = debugValue show value