Commit 77837e5

committed

Fix MergeSort.hs

1 parent b961a64 commit 77837e5Copy full SHA for 77837e5

File tree

-1

lines changed

-1

lines changed

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -35,7 +35,7 @@ mergeSort :: (U.Unbox a, Ord a) => U.Vector a -> U.Vector a`
`35`	`35`	`mergeSort = mergeSortBy compare`
`36`	`36`
`37`	`37`	`sortVector :: (G.Vector v a, Ord a) => v a -> v a`
`38`		`-sortVector v = G.create do`
	`38`	`+sortVector v = G.create $do`
`39`	`39`	`v' <- G.thaw v`
`40`	`40`	`A.sort v'`
`41`	`41`	`return v'`

Comments

(0)