I've modified Versions.hs to remove the epoch in the version number. It may not be the way to go but it seems to be working locally at least. Here is the full file.
{- Copyright (c) 2005 John Goerzen
<[EMAIL PROTECTED]>
Please see the COPYRIGHT file
-}
module Versions where
import Data.List
import MissingH.Cmd
import MissingH.Printf
import MissingH.Str
import MissingH.List
splitVer version =
case elemIndices '-' version of
[] -> (version, Nothing) -- No dash: no Debian version
x -> case splitAt (last x) version of
(u, d) -> (removeEpoch u, Just (drop 1 d))
removeEpoch upsVersion =
case elemIndices ':' upsVersion of
[] -> upsVersion
x -> case splitAt (last x) upsVersion of
(e, v) -> (drop 1 v)
getUpstreamVer = fst . splitVer
getDebianVer = snd . splitVer
extractLine hdr =
do (ph, l) <- pipeFrom "dpkg-parsechangelog" []
let rv = case find (isPrefixOf (hdr ++ ": ")) (lines l) of
Just x -> strip . drop ((length hdr) + 2) $ x
Nothing -> error $
vsprintf "Couldn't obtain %s from %s" hdr (show
l)
seq (seqList l) $ forceSuccess ph
return rv
getVerFromCL = extractLine "Version"
getPkgFromCL = extractLine "Source"
pgpjvUYZOgqtC.pgp
Description: PGP signature
