module Text.ChangeMonger.Mercurial (hgChanges, hgChangesAll, hgChangesSince) where
import Control.Monad (liftM)
import Text.ChangeMonger.Parse (run)
runHg :: [String] -> IO String
runHg = run "hg"
hgChanges :: String -> IO String
hgChanges a = runHg ["log", a]
hgChangesAll :: IO String
hgChangesAll = hgChanges ""
hgChangesSince :: IO String
hgChangesSince = do tags <- liftM lines $ runHg ["tags", "--quiet"]
runHg ["log", "-r", ((release tags) ++ ":tip")]
release :: [String] -> String
release [] = ""
release [""] = ""
release (_:x:_) = x
release (_:_) = ""