Fix comment
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 26 Jan 2012 20:35:46 +0000 (20:35 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 26 Jan 2012 20:35:46 +0000 (20:35 +0000)
Control/Monad/Primitive.hs

index 4761b3c..b16142c 100644 (file)
@@ -75,7 +75,7 @@ unsafePrimToPrim :: (PrimMonad m1, PrimMonad m2) => m1 a -> m2 a
 unsafePrimToPrim m = primitive (unsafeCoerce# (internal m))
 
 -- | Convert any 'PrimMonad' to 'ST' with an arbitrary state token. This
 unsafePrimToPrim m = primitive (unsafeCoerce# (internal m))
 
 -- | Convert any 'PrimMonad' to 'ST' with an arbitrary state token. This
--- operations is highly unsafe!
+-- operation is highly unsafe!
 unsafePrimToST :: PrimMonad m => m a -> ST s a
 unsafePrimToST = unsafePrimToPrim
 
 unsafePrimToST :: PrimMonad m => m a -> ST s a
 unsafePrimToST = unsafePrimToPrim