Permalink
Fetching contributors…
Cannot retrieve contributors at this time
31 lines (27 sloc) 968 Bytes
{-#LANGUAGE OverloadedStrings#-}
import Shelly
import Prelude hiding (FilePath)
import System.Environment
import Data.String
configure = command_ "cabal" ["configure"] . map fromString
haddock = command_ "cabal" ["haddock"] []
moveToTemp = command_ "mv" ["-f","dist/doc","/tmp"] []
cleanTmp = command_ "rm" ["-rf", "/tmp/doc"] []
moveFromTemp = command_ "cp" ["-rf","/tmp/doc","dist/"] []
checkout a = command_ "git" ["checkout",a] []
add = command_ "git" ["add","dist/doc/*"] []
commit = command_ "git" ["commit","-am 'documentation updated'"] []
main = do
as <- getArgs
shelly $ verbosely $ do
echo "Running haddock"
silently $ configure as
haddock
cleanTmp
moveToTemp
silently $ checkout "gh-pages"
moveFromTemp
add
commit
echo "documentation updated. You can now push `gh-pages` branch to github"
silently $ checkout "VT/development"