Commits

Aleksey Khudyakov  committed fa322eb

Formatting

  • Participants
  • Parent commits 413f13e

Comments (0)

Files changed (1)

File fixed-vector/Data/Vector/Fixed/Cont.hs

 
 -- | Apply all parameters to the function using monadic actions.
 applyM :: (Monad m, Arity n)
-         => (forall k. t (S k) -> m (a, t k)) -- ^ Get value to apply to function
-         -> t n                               -- ^ Initial value
-         -> m (ContVec n a)
+       => (forall k. t (S k) -> m (a, t k)) -- ^ Get value to apply to function
+       -> t n                               -- ^ Initial value
+       -> m (ContVec n a)
 {-# INLINE applyM #-}
 applyM f t = do (v,_) <- applyFunM f t
                 return v