Get rid of punctuation in upstream status

apauley · Jul 26, 2016 · 8f57f3a · 8f57f3a
1 parent d1b08c3
commit 8f57f3a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/TODO.org b/TODO.org
@@ -1,4 +1,5 @@
-* Get rid of punctuation in upstream status
+* DONE Get rid of punctuation in upstream status
+CLOSED: [2016-07-09 Sat 21:29]
 ** , ' .
 * DONE Display local time
 CLOSED: [2016-07-09 Sat 20:25]

diff --git a/app/Main.hs b/app/Main.hs
@@ -48,7 +48,8 @@ upstreamColour txt = if upToDate then cyanFG txt else lightRedFG txt
 gitStatusUpstream :: Shell Text
 gitStatusUpstream = do
   let searchText = "Your branch "
-  sed (searchText *> return "") $ grep (prefix searchText) (git "status" ["--long"])
+  let st = sed (searchText *> return "") $ grep (prefix searchText) (git "status" ["--long"])
+  sed ((choice [",", ".", "'"]) *> return "") st
 
 colourOrEmpty :: (Text -> Text) -> Shell Text -> IO Text
 colourOrEmpty colourFun shellText = do