From 4cfd4cbbed7e93c092a44285ae519d08b587efc4 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Fri, 3 Jul 2015 13:15:54 +0200 Subject: Cleanup --- Logic.icl | 5 ++--- 1 file 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 -- cgit v1.2.3