Comment.

[ci skip]
23Skidoo · May 11, 2016 · 2c08bc7 · 2c08bc7
1 parent cc1ce86
commit 2c08bc7
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/cabal-install/Distribution/Client/Upload.hs b/cabal-install/Distribution/Client/Upload.hs
@@ -30,6 +30,10 @@ import Data.Char (isSpace)
 
 type Auth = Maybe (String, String)
 
+-- > stripExtensions ["tar", "gz"] "foo.tar.gz"
+-- Just "foo"
+-- > stripExtensions ["tar", "gz"] "foo.gz.tar"
+-- Nothing
 stripExtensions :: [String] -> FilePath -> Maybe String
 stripExtensions exts path = foldM f path (reverse exts)
  where