github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-25 02:58:36 +03:00
Code Issues Projects Releases Wiki Activity

Split the guards across multiple lines.

Browse Source
This commit is contained in:
Rob Rix 2016-03-11 17:46:25 -05:00
parent c0b9e66981
commit cf63f4b222
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Adjoined.hs
View File

@ -24,5 +24,7 @@ instance Monad Adjoined where
instance Coalescent a => Monoid (Adjoined a) where instance Coalescent a => Monoid (Adjoined a) where
mempty = Adjoined mempty 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) | otherwise = Adjoined (a >< b)