diff --git a/System/FilePath/Internal.hs b/System/FilePath/Internal.hs
index 64534e8c1848a14ca3205799a66db7b3de0dc450..5b3cfa2b68d450db7c07238dae67d6a6ecc00cb0 100644
--- a/System/FilePath/Internal.hs
+++ b/System/FilePath/Internal.hs
@@ -426,7 +426,6 @@ stripExtension ext path = case uncons ext of
 -- > splitExtensions "file.tar.gz" == ("file",".tar.gz")
 -- > uncurry (<>) (splitExtensions x) == x
 -- > Valid x => uncurry addExtension (splitExtensions x) == x
--- > splitExtensions "file.tar.gz" == ("file",".tar.gz")
 splitExtensions :: FILEPATH -> (FILEPATH, STRING)
 splitExtensions x = (a <> c, d)
     where