ADD cifs domain option
This commit is contained in:
parent
54651e2fe9
commit
69e8fbc9dd
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue