From c7685757d134f44209ab9c17d65f4b4cf4f964e2 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 25 Sep 2017 12:24:42 -0400 Subject: [PATCH] =?UTF-8?q?Reformat=20genericAlgorithmFor=E2=80=99s=20type?= =?UTF-8?q?=20signature.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/Algorithm.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Algorithm.hs b/src/Algorithm.hs index dd0cba588..d82ebfa01 100644 --- a/src/Algorithm.hs +++ b/src/Algorithm.hs @@ -126,7 +126,10 @@ class Diffable f where -> g (f b) subalgorithmFor _ _ _ = empty -genericAlgorithmFor :: (Generic1 f, GDiffable (Rep1 f)) => f term1 -> f term2 -> Algorithm term1 term2 result (f result) +genericAlgorithmFor :: (Generic1 f, GDiffable (Rep1 f)) + => f term1 + -> f term2 + -> Algorithm term1 term2 result (f result) genericAlgorithmFor a b = to1 <$> galgorithmFor (from1 a) (from1 b)