github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 23:11:50 +03:00
Code Issues Projects Releases Wiki Activity

Add a Crosswalk typeclass.

Browse Source
This commit is contained in:
Rob Rix 2016-03-10 12:48:09 -05:00
parent 1906f84dad
commit 86dc5ad6f5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Align.hs
View File

@ -13,3 +13,7 @@ instance Align [] where
alignWith f as [] = f . This <$> as
alignWith f [] bs = f . That <$> bs
alignWith f (a : as) (b : bs) = f (These a b) : alignWith f as bs
class Crosswalk t where
sequenceL :: Align f => t (f a) -> f (t a)