Forgot to commit a minor simplification in type expression

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