--- 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