1 files changed, 1 insertions(+), 1 deletions(-)

M src/Data/Text/ParagraphLayout/Internal/Span.hs

@@ 40,7 40,7 @@ data SpanOptions = SpanOptions
 -- | The resulting layout of each span, which may include multiple fragments if
 -- broken over multiple lines.
 data SpanLayout = SpanLayout [Fragment]
-    -- TODO: Consider merging. fragments created by script changes.
+    -- TODO: Consider merging fragments created by script changes.
     deriving (Eq, Read, Show)
 
 spanRects :: SpanLayout -> [Rect Int32]