unix-compat 0.6 → 0.7
raw patch · 4 files changed
+8/−140 lines, 4 filesdep ~unixnew-uploader
Dependency ranges changed: unix
Files
- CHANGELOG.md +4/−0
- src/System/PosixCompat.hs +0/−2
- src/System/PosixCompat/User.hsc +0/−133
- unix-compat.cabal +4/−5
CHANGELOG.md view
@@ -1,3 +1,7 @@+## Version 0.7 (2023-03-15)++- Remote `System.PosixCompat.User` module+ ## Version 0.6 (2022-05-22) - Better support for symbolic links
src/System/PosixCompat.hs view
@@ -11,7 +11,6 @@ , module System.PosixCompat.Time , module System.PosixCompat.Types , module System.PosixCompat.Unistd- , module System.PosixCompat.User , usingPortableImpl ) where @@ -20,7 +19,6 @@ import System.PosixCompat.Time import System.PosixCompat.Types import System.PosixCompat.Unistd-import System.PosixCompat.User -- | 'True' if unix-compat is using its portable implementation, -- or 'False' if the unix package is simply being re-exported.
− src/System/PosixCompat/User.hsc
@@ -1,133 +0,0 @@-{-# LANGUAGE CPP #-}--{-|-This module makes the operations exported by @System.Posix.User@-available on all platforms. On POSIX systems it re-exports operations from-@System.Posix.User@. On other platforms it provides dummy implementations.--}-module System.PosixCompat.User (- -- * User environment- -- ** Querying the user environment- getRealUserID- , getRealGroupID- , getEffectiveUserID- , getEffectiveGroupID- , getGroups- , getLoginName- , getEffectiveUserName-- -- *** The group database- , GroupEntry(..)- , getGroupEntryForID- , getGroupEntryForName- , getAllGroupEntries-- -- *** The user database- , UserEntry(..)- , getUserEntryForID- , getUserEntryForName- , getAllUserEntries-- -- ** Modifying the user environment- , setUserID- , setGroupID- ) where--#ifndef mingw32_HOST_OS--#include "HsUnixCompat.h"--import System.Posix.User--#if __GLASGOW_HASKELL__<605-getAllGroupEntries :: IO [GroupEntry]-getAllGroupEntries = return []--getAllUserEntries :: IO [UserEntry]-getAllUserEntries = return []-#endif--#else /* Portable implementation */--import System.IO.Error-import System.PosixCompat.Types--unsupported :: String -> IO a-unsupported f = ioError $ mkIOError illegalOperationErrorType x Nothing Nothing- where x = "System.PosixCompat.User." ++ f ++ ": not supported"---- -------------------------------------------------------------------------------- User environment--getRealUserID :: IO UserID-getRealUserID = unsupported "getRealUserID"--getRealGroupID :: IO GroupID-getRealGroupID = unsupported "getRealGroupID"--getEffectiveUserID :: IO UserID-getEffectiveUserID = unsupported "getEffectiveUserID"--getEffectiveGroupID :: IO GroupID-getEffectiveGroupID = unsupported "getEffectiveGroupID"--getGroups :: IO [GroupID]-getGroups = return []--getLoginName :: IO String-getLoginName = unsupported "getLoginName"--setUserID :: UserID -> IO ()-setUserID _ = return ()--setGroupID :: GroupID -> IO ()-setGroupID _ = return ()---- -------------------------------------------------------------------------------- User names--getEffectiveUserName :: IO String-getEffectiveUserName = unsupported "getEffectiveUserName"---- -------------------------------------------------------------------------------- The group database--data GroupEntry = GroupEntry- { groupName :: String- , groupPassword :: String- , groupID :: GroupID- , groupMembers :: [String]- } deriving (Show, Read, Eq)--getGroupEntryForID :: GroupID -> IO GroupEntry-getGroupEntryForID _ = unsupported "getGroupEntryForID"--getGroupEntryForName :: String -> IO GroupEntry-getGroupEntryForName _ = unsupported "getGroupEntryForName"--getAllGroupEntries :: IO [GroupEntry]-getAllGroupEntries = return []---- -------------------------------------------------------------------------------- The user database (pwd.h)--data UserEntry = UserEntry- { userName :: String- , userPassword :: String- , userID :: UserID- , userGroupID :: GroupID- , userGecos :: String- , homeDirectory :: String- , userShell :: String- } deriving (Show, Read, Eq)--getUserEntryForID :: UserID -> IO UserEntry-getUserEntryForID _ = unsupported "getUserEntryForID"--getUserEntryForName :: String -> IO UserEntry-getUserEntryForName _ = unsupported "getUserEntryForName"--getAllUserEntries :: IO [UserEntry]-getAllUserEntries = return []--#endif
unix-compat.cabal view
@@ -1,16 +1,16 @@ name: unix-compat-version: 0.6+version: 0.7 synopsis: Portable POSIX-compatibility layer. description: This package provides portable implementations of parts of the unix package. This package re-exports the unix package when available. When it isn't available, portable implementations are used. -homepage: http://github.com/jacobstanley/unix-compat+homepage: http://github.com/haskell-pkg-janitors/unix-compat license: BSD3 license-file: LICENSE author: Björn Bringert, Duncan Coutts, Jacob Stanley, Bryan O'Sullivan-maintainer: Jacob Stanley <jacob@stanley.io>+maintainer: Mitchell Rosen <mitchellwrosen@gmail.com> category: System build-type: Simple cabal-version: >= 1.10@@ -20,7 +20,7 @@ source-repository head type: git- location: git@github.com:jacobstanley/unix-compat.git+ location: git@github.com:haskell-pkg-janitors/unix-compat.git flag old-time description: build against old-time package@@ -40,7 +40,6 @@ System.PosixCompat.Time System.PosixCompat.Types System.PosixCompat.Unistd- System.PosixCompat.User if os(windows) c-sources: