Hish 0.1.2.1 → 0.1.2.2
raw patch · 3 files changed
+13/−4 lines, 3 filesdep ~processPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: process
API changes (from Hackage documentation)
Files
- ChangeLog.md +4/−0
- Hish.cabal +3/−3
- src/Hish/SysInfo.hs +6/−1
ChangeLog.md view
@@ -34,3 +34,7 @@ * [m] re-design status symbol * [m] reset prompt format and color * [-] turn-off the supporting of darcs++## 0.1.2.2 -- 2015-10-22++* [m] bug fixed
Hish.cabal view
@@ -1,5 +1,5 @@ Name: Hish-Version: 0.1.2.1+Version: 0.1.2.2 Author: Yun-Yan Chi Maintainer: jaiyalas@gmail.com License: BSD3@@ -22,7 +22,7 @@ ghc-options: -w build-depends: base >= 4.8 && < 5 , MissingH >= 1.3.0 && < 1.4- , process >= 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@@ -39,7 +39,7 @@ ghc-options: -w build-depends: base >= 4.8 && < 5 , MissingH >= 1.3.0 && < 1.4- , process >= 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
src/Hish/SysInfo.hs view
@@ -46,7 +46,10 @@ mName <- uid case (code, mName) of (ExitSuccess, Just name) -> return $ return $- ( (\str -> if (head str) == '~' then str else '/':str )+ ( (\str -> case head str of+ '~' -> str+ '/' -> str+ _ -> '/':str ) . (\str -> if (length str) > width then shortDir $ S.split "/" str else str)@@ -66,6 +69,8 @@ -> String shortDir [] = "" shortDir [l] = l+shortDir ("":xs) = shortDir xs+shortDir (('.':s):xs) = '.' : (head s) : '/' : shortDir xs shortDir (x:xs) = (head x) : '/' : shortDir xs {- ========================================== -}