diff --git a/README.org b/README.org index 585dd9e..33e9144 100644 --- a/README.org +++ b/README.org @@ -3,6 +3,9 @@ *Principle: put project management info along the repository not in some DB.* +Clone the project, get the code, but also the issues, the doc, the webpage, +everything... + * Git Project Manager Put a project management tool in git. diff --git a/src/GPM/Serve.hs b/src/GPM/Serve.hs index f06bf44..96657bd 100644 --- a/src/GPM/Serve.hs +++ b/src/GPM/Serve.hs @@ -13,10 +13,11 @@ module GPM.Serve ) where -import Protolude hiding (ask, die, (%),stdout) +import Protolude hiding (die, (%)) import Turtle -import GPM.Helpers (getGPMDataDir, debug, debug_, inDir) +import GPM.Helpers (debug, debug_, getGPMDataDir, + inDir) getPublicDir :: IO Turtle.FilePath getPublicDir = do @@ -28,7 +29,7 @@ getProjectRoot :: IO Turtle.FilePath getProjectRoot = do mReporoot <- debug "git rev-parse --show-toplevel" case mReporoot of - Nothing -> die "You don't appear to be in a git repository." + Nothing -> die "You don't appear to be in a git repository." Just reporoot -> return (fromString (toS reporoot)) getPublicPrjDir :: IO Turtle.FilePath @@ -89,6 +90,7 @@ handleServeStart = do pubDir <- getPublicDir inDir pubDir $ debug_ "git instaweb --http=webrick start" + -- TODO: Do not forget to also git serve handleServeStop :: IO () handleServeStop = do