🚧 WIP 🚧
This commit is contained in:
parent
f6cb951c88
commit
838ae10ec6
2 changed files with 8 additions and 3 deletions
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue