Hish 0.1.2.3 → 0.1.2.4

raw patch · 2 files changed

+26/−25 lines, 2 files

Files

Hish.cabal +13/−13
src/hish.hs +13/−12

Hish.cabal view

@@ -1,5 +1,5 @@ Name:                   Hish-Version:                0.1.2.3+Version:                0.1.2.4 Author:                 Yun-Yan Chi Maintainer:             jaiyalas@gmail.com License:                BSD3@@ -20,12 +20,12 @@   default-language: Haskell2010   hs-source-dirs: src   ghc-options: -w-  build-depends: base        >= 4.8   && < 5-               , MissingH    >= 1.3.0 && < 1.4-               , process     >= 1.3.0 && < 1.5-               , regex-tdfa  >= 1.2.1 && < 1.3-               , time        >= 1.5.0 && < 1.6-               , directory   >= 1.2.2 && < 1.3+  build-depends: base           >= 4.8   && < 5+               , MissingH       >= 1.3.0 && < 1.4+               , process        >= 1.3.0 && < 1.5+               , regex-tdfa     >= 1.2.1 && < 1.3+               , time           >= 1.5.0 && < 1.6+               , directory      >= 1.2.2 && < 1.3   exposed-modules:         Hish.ANSICode         Hish.SysInfo@@ -37,12 +37,12 @@   hs-source-dirs:   src   main-is:          hish.hs   ghc-options:      -w-  build-depends: base        >= 4.8   && < 5-               , MissingH    >= 1.3.0 && < 1.4-               , process     >= 1.3.0 && < 1.5-               , regex-tdfa  >= 1.2.1 && < 1.3-               , time        >= 1.5.0 && < 1.6-               , directory   >= 1.2.2 && < 1.3+  build-depends: base           >= 4.8   && < 5+               , MissingH       >= 1.3.0 && < 1.4+               , process        >= 1.3.0 && < 1.5+               , regex-tdfa     >= 1.2.1 && < 1.3+               , time           >= 1.5.0 && < 1.6+               , directory      >= 1.2.2 && < 1.3 -- Source-Repository head   Type:     git

src/hish.hs view

@@ -7,6 +7,7 @@ -- import Hish.VCS.Darcs import qualified Hish.SysInfo   as SysInfo import qualified System.Process as SP+-- import System.Directory (getHomeDirectory,doesFileExist) -- import Data.Monoid (mempty,(<>)) --@@ -15,18 +16,18 @@ -- main :: IO () main = do-   -- printSTime-   -- printUID-   -- printHostname-   putStr " "-   printWorkingTree-   putStr " "-   ---   !b1 <- installed Git-   !b2 <- isRepo Git-   if (b1 && b2) then printVCSInfo Git else return ()-   ---   putStr $ applyANSI (_prompt_symbol++" ") $ mempty+    printSTime+    -- printUID+    -- printHostname+    putStr " "+    printWorkingTree+    putStr " "+    --+    !b1 <- installed Git+    !b2 <- isRepo Git+    if (b1 && b2) then printVCSInfo Git else return ()+    --+    putStr $ applyANSI (_prompt_symbol++" ") $ mempty -- -- printVCSInfo :: (Show a, VCS a) => a -> IO ()