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

Fix a stupid error

Browse Source 
Yup, I'm an idiot.
This commit is contained in:
Michael Snoyman 2014-11-17 14:38:27 +02:00
parent d25939ccb7
commit 38850dfe68
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data/Hackage.hs
View File

@ -124,7 +124,7 @@ loadCabalFiles uploadHistory0 metadata0 = (>>= runUploadState) $ flip execStateT
readVersion :: Version -> Maybe (UVector Int) readVersion :: Version -> Maybe (UVector Int)
readVersion v = readVersion v =
case filter (not . null . snd) $ readP_to_S Data.Version.parseVersion . unpack . unVersion $ v of case filter (null . snd) $ readP_to_S Data.Version.parseVersion . unpack . unVersion $ v of
(dv, _):_ -> Just $ pack $ Data.Version.versionBranch dv (dv, _):_ -> Just $ pack $ Data.Version.versionBranch dv
[] -> Nothing [] -> Nothing