HSH 2.0.4 → 2.1.0

raw patch · 3 files changed

+6/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

- HSH.ShellEquivs: rev, revW :: [String] -> [String]

+ HSH.ShellEquivs: rev :: [String] -> [String]

+ HSH.ShellEquivs: revW :: [String] -> [String]

Files

HSH.cabal +1/−1
HSH/Command.hs +1/−1
HSH/ShellEquivs.hs +4/−2

HSH.cabal view

@@ -1,5 +1,5 @@ Name: HSH-Version: 2.0.4+Version: 2.1.0 License: LGPL Maintainer: John Goerzen <jgoerzen@complete.org> Author: John Goerzen

HSH/Command.hs view

@@ -43,7 +43,7 @@ import Data.Maybe.Utils import Data.Maybe import Data.List.Utils(uniq)-import Control.Exception(evaluate, SomeException, catch)+import Control.Exception(try, evaluate, SomeException, catch) import Text.Regex.Posix import Control.Monad(when) import Data.String.Utils(rstrip)

HSH/ShellEquivs.hs view

@@ -20,6 +20,8 @@  -} +{-# LANGUAGE ScopedTypeVariables #-}+ #if !(defined(mingw32_HOST_OS) || defined(mingw32_TARGET_OS) || defined(__MINGW32__)) #define __HSH_POSIX__ #else@@ -84,7 +86,7 @@ import Text.Printf (printf) import Control.Monad (foldM) import System.Directory hiding (createDirectory)-import Control.Exception(evaluate)+import Control.Exception(evaluate, catch, try, SomeException(..)) -- import System.FilePath (splitPath)  #ifdef __HSH_POSIX__@@ -314,7 +316,7 @@ Non-tilde expansion is done by the MissingH module System.Path.Glob. -} glob :: FilePath -> IO [FilePath] glob inp@('~':remainder) =-    catch expanduser (\_ -> Glob.glob rest)+    catch expanduser (\(e::SomeException) -> Glob.glob rest)     where (username, rest) = span (/= '/') remainder #ifdef __HSH_POSIX__           expanduser =