aboutsummaryrefslogtreecommitdiff
path: root/Logic.icl
diff options
context:
space:
mode:
authorCamil Staps2015-07-03 13:15:54 +0200
committerCamil Staps2015-07-03 13:16:24 +0200
commit4cfd4cbbed7e93c092a44285ae519d08b587efc4 (patch)
tree69bedcf9d2b9536f84963759040b50bbe6660b01 /Logic.icl
parentCleanup (diff)
Cleanup
Diffstat (limited to 'Logic.icl')
-rw-r--r--Logic.icl5
1 files changed, 2 insertions, 3 deletions
diff --git a/Logic.icl b/Logic.icl
index b42eff9..fbaba12 100644
--- a/Logic.icl
+++ b/Logic.icl
@@ -83,9 +83,8 @@ where
= row_b +++ join row_s [pad_right head len \\ head <- map toString exprs & len <- padlens] +++ row_e +++
line_b +++ join line_s [toString (repeatn len '-') \\ len <- padlens] +++ line_e +++
foldr (+++) "" [row_b +++ join row_s [pad_right (toStringOrEmpty val) len \\ val <- map (eval o substitute_all options`) exprs & len <- padlens] +++ row_e \\ options` <- options]
- //= foldr (+++) "" (map toString padlens)
where
- row_b = " "
+ row_b = " " // Row / Line begin, end, separator
row_e = " \n"
row_s = " | "
line_b = "-"
@@ -102,7 +101,7 @@ where
instance < Op1
where
- (<) Not Not = False // this doesn't make much sense, but whatever
+ (<) Not Not = False
instance == Op2
where