changeset 45:0c2d758406b1 PairDelta

Mini refactor
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Sun, 09 Nov 2014 12:04:20 +0900
parents 6e270dfe2bb9
children cb5c190aa45d
files delta.hs
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/delta.hs	Sun Nov 09 11:39:07 2014 +0900
+++ b/delta.hs	Sun Nov 09 12:04:20 2014 +0900
@@ -7,8 +7,8 @@
     show (Delta lx x ly y) = values ++ logs
         where
             values        = "Delta {" ++ (show x) ++ "|" ++ (show y) ++ "}\n"
-            logs          = concat . reverse $ zipWith (formatter x y) lx ly
-            formatter x y = (\x y -> "      {" ++ x ++ (separator x y) ++ y ++ "}\n")
+            logs          = concat . reverse $ zipWith formatter lx ly
+            formatter x y = "      {" ++ x ++ (separator x y) ++ y ++ "}\n"
             separator x y = if (max (length x) (length y)) > 50 then "|\n       " else "|"
 
 value :: (Delta a) -> a