From 838ae10ec6ab04aa8945187311f0a3f880200ec9 Mon Sep 17 00:00:00 2001
From: "Yann Esposito (Yogsototh)" <yann.esposito@gmail.com>
Date: Wed, 10 Oct 2018 00:19:48 +0200
Subject: [PATCH] :construction: WIP :construction:

---
 README.org       | 3 +++
 src/GPM/Serve.hs | 8 +++++---
 2 files changed, 8 insertions(+), 3 deletions(-)

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