Use idiom brackets in Traversable (Vect k).

This commit is contained in:
Matus Tejiscak 2020-04-29 08:53:30 +02:00
parent cab5497ce2
commit e0e1cb9a21

View File

@ -801,7 +801,7 @@ implementation {k : Nat} -> Monad (Vect k) where
export
implementation Traversable (Vect n) where
traverse f [] = pure []
traverse f (x :: xs) = pure (::) <*> (f x) <*> (traverse f xs)
traverse f (x :: xs) = [| f x :: traverse f xs |]
--------------------------------------------------------------------------------
-- Elem