X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FLinear%2FVector.hs;fp=src%2FLinear%2FVector.hs;h=e4f622588bbd01ee5657465a78daf2d46aa4c7de;hb=cc93d648089344338030a9b79cd7bea7c6e8c997;hp=42d47a39e58670136b5300dd1f83f007ce85fc2e;hpb=e21dd0f819e165daceec53c205dd0ab622fceee2;p=numerical-analysis.git

diff --git a/src/Linear/Vector.hs b/src/Linear/Vector.hs
index 42d47a3..e4f6225 100644
--- a/src/Linear/Vector.hs
+++ b/src/Linear/Vector.hs
@@ -55,9 +55,14 @@ type Vec5 = Vec N5
 --   >>> delete b 1 :: Vec2 Int
 --   fromList [1,3]
 --
-delete :: (Vector v a, Vector w a, Dim v ~ S (Dim w)) => v a -> Int -> w a
+delete :: (Vector v a,
+           Vector w a,
+           Dim v ~ S (Dim w))
+       => v a
+       -> Int
+       -> w a
 delete v1 idx =
-  fromList $ (lhalf ++ rhalf')
+  fromList (lhalf ++ rhalf')
   where
     (lhalf, rhalf) = splitAt idx (toList v1)
     rhalf' = tail rhalf