gitHUD 1.3.5 → 1.3.6

raw patch · 4 files changed

+14/−5 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• gitHUD.cabal +1/−1
• src/GitHUD.hs +7/−3
• src/GitHUD/Terminal/Base.hs +5/−0
• src/GitHUD/Terminal/Types.hs +1/−1

@@ -1,5 +1,5 @@ name:                gitHUD-version:             1.3.5+version:             1.3.6 synopsis:            More efficient replacement to the great git-radar description:         Please see README.md homepage:            http://github.com/gbataille/gitHUD#readme

@@ -36,9 +36,13 @@                  -> IO Shell processArguments args = do   arguments <- args-  if (not (Prelude.null arguments)) && ((Prelude.head arguments) == "zsh")-    then return ZSH-    else return Other+  return $ getShell arguments++getShell :: [String]+         -> Shell+getShell ("zsh":_) = ZSH+getShell ("bash":_) = BASH+getShell _ = Other  getAppConfig :: IO Config getAppConfig = do

@@ -37,11 +37,16 @@                   -> String                   -> String applyShellMarkers ZSH = zshMarkZeroWidth+applyShellMarkers BASH = bashMarkZeroWidth applyShellMarkers _ = id  zshMarkZeroWidth :: String                  -> String zshMarkZeroWidth str = "%{" `mappend` str `mappend` "%}"++bashMarkZeroWidth :: String+                 -> String+bashMarkZeroWidth str = "\001" `mappend` str `mappend` "\002"  terminalStartCode :: Color                   -> ColorIntensity

@@ -6,4 +6,4 @@  data Color = Black | Red | Green | Yellow | Blue | Magenta | Cyan | White | NoColor deriving (Eq, Show, Read) data ColorIntensity = Dull | Vivid deriving (Eq, Show, Read)-data Shell = ZSH | Other deriving (Eq, Show)+data Shell = ZSH | BASH | Other deriving (Eq, Show)