diff --git a/src/Control/Monad/IO.purs b/src/Control/Monad/IO.purs
index be53e70..cde46c7 100644
--- a/src/Control/Monad/IO.purs
+++ b/src/Control/Monad/IO.purs
@@ -55,8 +55,8 @@ derive newtype instance monoidIO      :: (Monoid a) => Monoid (IO a)
 derive newtype instance functorParIO     :: Functor     ParIO
 derive newtype instance applyParIO       :: Apply       ParIO
 derive newtype instance applicativeParIO :: Applicative ParIO
-derive newtype instance semigroupParIO   :: (Semigroup a) => Semigroup (IO a)
-derive newtype instance monoidParIO      :: (Monoid a) => Monoid (IO a)
+derive newtype instance semigroupParIO   :: (Semigroup a) => Semigroup (ParIO a)
+derive newtype instance monoidParIO      :: (Monoid a) => Monoid (ParIO a)
 
 instance monadAffIO :: MonadAff eff IO where
   liftAff = wrap <<< unsafeCoerceAff