diff --git a/Hish.cabal b/Hish.cabal
--- a/Hish.cabal
+++ b/Hish.cabal
@@ -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
diff --git a/src/hish.hs b/src/hish.hs
--- a/src/hish.hs
+++ b/src/hish.hs
@@ -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 ()