From 2cd1d9eb4a5ebdafe3ac18baef1356a5f46cf83f Mon Sep 17 00:00:00 2001 From: Eric Lindblad Date: Wed, 6 Apr 2022 19:55:26 -0500 Subject: [PATCH] spelling errors --- old-testsuite/microsuite/Test.hs | 2 +- vector/src/Data/Vector/Storable/Mutable.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/old-testsuite/microsuite/Test.hs b/old-testsuite/microsuite/Test.hs index 670d43d3..0b3b8b86 100644 --- a/old-testsuite/microsuite/Test.hs +++ b/old-testsuite/microsuite/Test.hs @@ -177,7 +177,7 @@ left_over_vector = compile "Data\\.Vector\\.Unboxed\\.Base\\.Vector" [] readProcess :: FilePath -- ^ command to run -> [String] -- ^ any arguments -> String -- ^ standard input - -> IO (Either (ExitCode,String) String) -- ^ either the stdout, or an exitcode and any output + -> IO (Either (ExitCode,String) String) -- ^ either the stdout, or an exit code and any output readProcess cmd args input = C.handle (return . handler) $ do (inh,outh,errh,pid) <- runInteractiveProcess cmd args Nothing Nothing diff --git a/vector/src/Data/Vector/Storable/Mutable.hs b/vector/src/Data/Vector/Storable/Mutable.hs index 72a2770d..a6bcf524 100644 --- a/vector/src/Data/Vector/Storable/Mutable.hs +++ b/vector/src/Data/Vector/Storable/Mutable.hs @@ -233,7 +233,7 @@ storableSetAsPrim {-# INLINE [0] storableSetAsPrim #-} storableSetAsPrim n fp x _y = unsafeWithForeignPtr fp $ \ ptr -> do poke ptr x - -- we dont equate storable and prim reps, so we need to write to a slot + -- we don't equate storable and prim reps, so we need to write to a slot -- in storable -- then read it back as a prim w<- peakPrimPtr_vector (castPtr ptr :: Ptr b) 0