idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-01 09:49:24 +03:00
Code Issues Projects Releases Wiki Activity

Spaces

Browse Source
This commit is contained in:
russoul 2020-08-27 22:40:55 +03:00
parent 0e7ba90e9f
commit f50034a050
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/TTImp/Elab/Record.idr
View File

@ -263,13 +263,13 @@ elabInstance env fc n fs
seqexp <- sequence $ map (\x => lookupOrElse x fs' (throw (NotCoveredField fc x))) allfields
pure $ (foldl (IApp fc) (IVar fc fullname) seqexp)
where
sequenceCore : (Core a, Core b) -> Core (a, b) --specialize
sequenceCore : (Core a, Core b) -> Core (a, b) -- specialize
sequenceCore (x, y) = do
x' <- x
y' <- y
pure (x', y')
sequenceM : forall a, b, m. Monad m => (m a, m b) -> m (a, b) --Core is not a monad
sequenceM : forall a, b, m. Monad m => (m a, m b) -> m (a, b) -- Core is not a monad
sequenceM (mx, my)
= do x <- mx
y <- my