idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-09-21 18:32:44 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #387 from LibreCybernetics/fix-export-vect

Browse Source 
Make Applicative implementation of Vect n public export.
This commit is contained in:
André Videla 2020-07-01 17:26:08 +01:00 committed by GitHub
commit cec56561c6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
libs/base/Data/Vect.idr
View File

@ -795,6 +795,7 @@ transpose (x :: xs) = helper x (transpose xs) -- = [| x :: xs |]
--------------------------------------------------------------------------------
-- These only work if the length is known at run time!
public export
implementation {k : Nat} -> Applicative (Vect k) where
pure = replicate _
fs <*> vs = zipWith apply fs vs