From ce13d89e9e86faca50c7e25bf007ef24c6a91180 Mon Sep 17 00:00:00 2001 From: John Goerzen Date: Thu, 31 Aug 2006 14:50:22 +0000 Subject: Derive Show, Read, and Eq for UserEntry and GroupEntry --- System/Posix/User.hsc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'System/Posix/User.hsc') diff --git a/System/Posix/User.hsc b/System/Posix/User.hsc index 5c6d8db..12173fa 100644 --- a/System/Posix/User.hsc +++ b/System/Posix/User.hsc @@ -151,7 +151,7 @@ data GroupEntry = groupPassword :: String, -- | The password for this group (gr_passwd) groupID :: GroupID, -- | The unique numeric ID for this group (gr_gid) groupMembers :: [String] -- | A list of zero or more usernames that are members (gr_mem) - } + } deriving (Show, Read, Eq) -- | @getGroupEntryForID gid@ calls @getgrgid@ to obtain -- the @GroupEntry@ information associated with @GroupID@ @@ -251,7 +251,7 @@ data UserEntry = userGecos :: String, -- | Usually the real name for the user (pw_gecos) homeDirectory :: String, -- | Home directory (pw_dir) userShell :: String -- | Default shell (pw_shell) - } + } deriving (Show, Read, Eq) -- -- getpwuid and getpwnam leave results in a static object. Subsequent -- cgit v1.2.3