diff --git a/Algorithms/PolygonTriangulation.hs b/Algorithms/PolygonTriangulation.hs
index 69bc042..acbd354 100644
--- a/Algorithms/PolygonTriangulation.hs
+++ b/Algorithms/PolygonTriangulation.hs
@@ -106,7 +106,7 @@ isYmonotone poly =
   $ classifyList poly
 
 
--- |Partition P in y-monotone pieces.
+-- |Partition P into y-monotone pieces.
 monotonePartitioning :: [PT] -> [[PT]]
 monotonePartitioning pts
   | isYmonotone pts = [pts]