Changes between Initial Version and Version 1 of Ticket #13153, comment 4


Ignore:
Timestamp:
Jan 19, 2017 11:28:24 PM (3 years ago)
Author:
dfeuer
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #13153, comment 4

    initial v1  
    1111{{{#!hs
    1212instance Traversable ZipList where
    13   traverse f = foldr cons_f (pure (ZipList [])) .# getZipList
     13  traverse f = foldr cons_f (pure (ZipList [])) . getZipList
    1414    where cons_f x = liftA2 (\x' ys' -> ZipList (x' : getZipList ys')) (f x)
    1515}}}