# HG changeset patch
# User Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
# Date 1415502260 -32400
# Node ID 0c2d758406b177c7b84326044b69aec4f40fa86c
# Parent  6e270dfe2bb90f3dd42eca2cd98e5b885772beff
Mini refactor

diff -r 6e270dfe2bb9 -r 0c2d758406b1 delta.hs
--- 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