Show git branch in workspace pane

Fixes #342

Uses the new safe localBranches function to show a default text if
you are not in a Git project.

cabal.project

@@ -6,6 +6,7 @@ packages:
  vendor/ltk/
  vendor/haskellVCSGUI/vcsgui/
  vendor/yi/
+ vendor/haskellVCSWrapper/vcswrapper/
 
 package gi-atk
  flags: -overloaded-methods -overloaded-signals -overloaded-properties

src/IDE/Pane/Workspace.hs

@@ -193,8 +193,10 @@ toMarkup record pkg = do
         let dir = ipdPackageDir pkg
         let conf = Git.makeConfig (Just dir) Nothing Nothing
         liftIO $ Git.runVcs conf $ do
-             (branch,_) <- localBranches -- TODO What if there is no branch?
-             return branch
+             branch <- Git.localBranchesSafe
+             case branch of
+                (Right (branch,_)) -> return branch
+                (Left _)           -> return "No Git project"
     where
         bold str = "<b>" <> str <> "</b>"
         italic str = "<i>" <> str <> "</i>"