github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-02 20:41:38 +03:00
Code Issues Projects Releases Wiki Activity

Define Sequenceable over [] in terms of GSequenceable over [].

Browse Source
This commit is contained in:
Rob Rix 2016-07-22 16:14:27 -04:00
parent dabffff7d0
commit f959917ae3
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Data/Sequenceable.hs
View File

@ -1,5 +1,6 @@
module Data.Sequenceable where module Data.Sequenceable where
import Data.Sequenceable.Generic
import Prologue import Prologue
-- Classes -- Classes
@ -10,6 +11,4 @@ class Functor t => Sequenceable t where
-- Instances -- Instances
instance Sequenceable [] where instance Sequenceable [] where sequenceAlt = gsequenceAlt
sequenceAlt (x:xs) = ((:) <$> x <|> pure identity) <*> sequenceAlt xs
sequenceAlt [] = pure []