Add Chown module

src/Streamly/Coreutils/Chown.hs

@@ -0,0 +1,38 @@
+-- |
+-- Module      : Streamly.Coreutils.Ls
+-- Copyright   : (c) 2022 Composewell Technologies
+-- License     : BSD-3-Clause
+-- Maintainer  : streamly@composewell.com
+-- Stability   : experimental
+-- Portability : GHC
+--
+-- Change file owner and group.
+
+module Streamly.Coreutils.Chown
+    (
+      setOwnerAndGroup
+
+    -- * Options
+    , Chown
+    , followLink
+    ) where
+
+import qualified System.Posix.Files as Posix
+import System.Posix.Types ( CUid (CUid), CGid (CGid) )
+import GHC.Word (Word32)
+import Streamly.Coreutils.Common (Switch(..))
+
+newtype Chown = Chown{deRef :: Switch}
+
+defaultConfig :: Chown
+defaultConfig = Chown Off
+
+followLink :: Switch -> Chown -> Chown
+followLink opt cfg = cfg {deRef = opt}
+
+setOwnerAndGroup :: (Chown -> Chown) -> FilePath -> Word32 -> Word32 -> IO ()
+setOwnerAndGroup f path uid gid = do
+    let opt = f defaultConfig
+    case deRef opt of
+        Off -> Posix.setSymbolicLinkOwnerAndGroup path (CUid uid) (CGid gid)
+        On -> Posix.setOwnerAndGroup path (CUid uid) (CGid gid)

streamly-coreutils.cabal

@@ -95,6 +95,7 @@ library
   hs-source-dirs:      src
   exposed-modules:
       Streamly.Coreutils
+    , Streamly.Coreutils.Chown
     , Streamly.Coreutils.Common
     , Streamly.Coreutils.Cp
     , Streamly.Coreutils.FileTest