haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-28 20:00:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix broken PathPiece instance

Browse Source
This commit is contained in:
Michael Snoyman 2014-04-17 21:21:35 +03:00
parent d1ce84317d
commit 1925f11952
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Types.hs
View File

@ -19,7 +19,7 @@ data PackageNameVersion = PackageNameVersion !PackageName !Version
deriving (Show, Read, Typeable, Eq, Ord) deriving (Show, Read, Typeable, Eq, Ord)
instance PathPiece PackageNameVersion where 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' = fromPathPiece t' | Just t <- stripSuffix ".tar.gz" t' =
case T.breakOnEnd "-" t of case T.breakOnEnd "-" t of
("", _) -> Nothing ("", _) -> Nothing