darcsRelease :: ReleaseType -> C String
darcsRelease t =
    do xxx <- systemOut "darcs" ["annotate","-t",releaseRegexp t,"-s"]
       ((_:zzz):_) <- return $ filter ("tagged" `elem`) $
                        map words $ reverse $ lines xxx
       return $ unwords zzz
darcsRelease :: ReleaseType -> C String
darcsRelease t =
    do xxx <- systemOut "darcs" ["annotate","-t",releaseRegexp t,"-s"]
       ((_:zzz):_) <- return $ filter ("tagged" `elem`) $
                        map words $ reverse $ lines xxx
       return $ unwords zzz
darcsRelease t =
    do xxx <- systemOut "darcs" ["annotate","-t",releaseRegexp t,"-s"]
       ((_:zzz):_) <- return $ filter ("tagged" `elem`) $
                        map words $ reverse $ lines xxx
       return $ unwords zzz