From cf63f4b222ec60d20d1cdebdb35ff704a554e80a Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 11 Mar 2016 17:46:25 -0500 Subject: [PATCH] Split the guards across multiple lines. --- src/Data/Adjoined.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Data/Adjoined.hs b/src/Data/Adjoined.hs index fad3e9203..ec43f873b 100644 --- a/src/Data/Adjoined.hs +++ b/src/Data/Adjoined.hs @@ -24,5 +24,7 @@ instance Monad Adjoined where instance Coalescent a => Monoid (Adjoined a) where mempty = Adjoined mempty - Adjoined a `mappend` Adjoined b | as :> a' <- viewr a, b' :< bs <- viewl b, Just coalesced <- coalesce a' b' = Adjoined (as >< (coalesced <| bs)) + Adjoined a `mappend` Adjoined b | as :> a' <- viewr a, + b' :< bs <- viewl b, + Just coalesced <- coalesce a' b' = Adjoined (as >< (coalesced <| bs)) | otherwise = Adjoined (a >< b)