diff --git a/lib/Text/Takkyuu/Internal.hs b/lib/Text/Takkyuu/Internal.hs
index 7f40665e4f065f82faceb3c5b10590d80b894b89..e534ea5d2261aa8e3c06f3f6b3f2b15b69d2b751 100644
--- a/lib/Text/Takkyuu/Internal.hs
+++ b/lib/Text/Takkyuu/Internal.hs
@@ -61,7 +61,7 @@ g@(Finished exitStatus1) <-> Opponent next2 =
 Player (Finish exitStatus1, _) <-> Finished Success = Finished exitStatus1
 _ <-> Finished _ = Finished Failure
 
-play :: Monad m => Game () () m -> m ExitStatus
+play :: Monad m => Match m -> m ExitStatus
 play (Finished exitStatus) = pure exitStatus
 play (M m) = m >>= play
 play (Player (_, next)) = play $ next Ok