ADD cifs domain option

This commit is contained in:
Nathan Dwarshuis 2024-08-12 09:55:08 -04:00
parent 54651e2fe9
commit 69e8fbc9dd
2 changed files with 3 additions and 0 deletions

View File

@ -462,6 +462,7 @@ fromCIFSOpts o = T.intercalate "," $ mapMaybe concatMaybe fs
fs =
[ ("username", cifsoptsUsername)
, ("workgroup", cifsoptsWorkgroup)
, ("domain", cifsoptsDomain)
, ("uid", fmap (T.pack . show) . cifsoptsUID)
, ("gid", fmap (T.pack . show) . cifsoptsGID)
, ("iocharset", cifsoptsIocharset)

View File

@ -24,6 +24,7 @@ let CIFSOpts =
{ Type =
{ cifsoptsUsername : Optional Text
, cifsoptsWorkgroup : Optional Text
, cifsoptsDomain : Optional Text
, cifsoptsUID : Optional Natural
, cifsoptsGID : Optional Natural
, cifsoptsIocharset : Optional Text
@ -31,6 +32,7 @@ let CIFSOpts =
, default =
{ cifsoptsUsername = None Text
, cifsoptsWorkgroup = None Text
, cifsoptsDomain = None Text
, cifsoptsUID = None Natural
, cifsoptsGID = None Natural
, cifsoptsIocharset = None Text