Commits

Aleksey Khudyakov committed ad32a52

formatting

  • Participants
  • Parent commits bb6a796

Comments (0)

Files changed (2)

File Data/Vector/Fixed.hs

 ifoldl :: Vector v a => (b -> Int -> a -> b) -> b -> v a -> b
 {-# INLINE ifoldl #-}
 ifoldl f z = C.runContVec (C.ifoldl f z)
-           . C.cvec  
+           . C.cvec
 
 -- | Left monadic fold over vector. Function is applied to each element and
 --   its index.
          => (a -> b -> m c) -> v a -> v b -> m (v c)
 {-# INLINE zipWithM #-}
 zipWithM f v u = C.vectorM
-               $ C.zipWithM f (C.cvec v) (C.cvec u)  
+               $ C.zipWithM f (C.cvec v) (C.cvec u)
 
 -- | Zip two vector together using function which takes element index
 --   as well.
           => (Int -> a -> b -> m c) -> v a -> v b -> m (v c)
 {-# INLINE izipWithM #-}
 izipWithM f v u = C.vectorM
-                $ C.izipWithM f (C.cvec v) (C.cvec u)  
+                $ C.izipWithM f (C.cvec v) (C.cvec u)
 
 
 ----------------------------------------------------------------
 -- | Convert vector to the list
 toList :: (Vector v a) => v a -> [a]
 toList v
-  = case inspectV v construct of VecList xs -> xs
+  = case inspect v construct of VecList xs -> xs
 
 -- | Create vector form list. List must have same length as the
 --   vector.

File Data/Vector/Fixed/Cont.hs

             -> m r
 runContVecM f (ContVecT c) = c f
 {-# INLINE runContVecM #-}
-  
+
 runContVec :: Arity n
            => Fun n a r
            -> ContVec r n a