Better commit message for LTSes

fpco · Jul 24, 2015 · 06fe259 · 06fe259
1 parent 30a5f63
commit 06fe259
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Stackage/CompleteBuild.hs b/Stackage/CompleteBuild.hs
@@ -43,6 +43,7 @@ import Stackage.ServerBundle
 import Stackage.UpdateBuildPlan
 import Stackage.Upload
 import System.Environment        (lookupEnv)
+import Filesystem.Path           (dropExtension)
 import System.IO                 (BufferMode (LineBuffering), hSetBuffering)
 import Control.Monad.Trans.Unlift (askRunBase, MonadBaseUnlift)
 import Data.Function (fix)
@@ -437,7 +438,7 @@ uploadGithub planFile docmapFile target = do
         sourceFile docmapFile $$ (sinkFile destFPDocmap :: Sink ByteString (ResourceT IO) ())
 
     git ["add", fpToString destFPPlan, fpToString destFPDocmap]
-    git ["commit", "-m", "Checking in " ++ fpToString (basename destFPPlan)]
+    git ["commit", "-m", "Checking in " ++ fpToString (dropExtension destFPPlan)]
     git ["push", "origin", "HEAD:master"]
 
 upload