From 1925f119520b801112df11e0eae7f93976011bac Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Thu, 17 Apr 2014 21:21:35 +0300 Subject: [PATCH] Fix broken PathPiece instance --- Types.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Types.hs b/Types.hs index fb27346..94bc1a2 100644 --- a/Types.hs +++ b/Types.hs @@ -19,7 +19,7 @@ data PackageNameVersion = PackageNameVersion !PackageName !Version deriving (Show, Read, Typeable, Eq, Ord) instance PathPiece PackageNameVersion where - toPathPiece (PackageNameVersion x y) = concat [toPathPiece x, "-", toPathPiece y] + toPathPiece (PackageNameVersion x y) = concat [toPathPiece x, "-", toPathPiece y, ".tar.gz"] fromPathPiece t' | Just t <- stripSuffix ".tar.gz" t' = case T.breakOnEnd "-" t of ("", _) -> Nothing