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 =
|
fs =
|
||||||
[ ("username", cifsoptsUsername)
|
[ ("username", cifsoptsUsername)
|
||||||
, ("workgroup", cifsoptsWorkgroup)
|
, ("workgroup", cifsoptsWorkgroup)
|
||||||
|
, ("domain", cifsoptsDomain)
|
||||||
, ("uid", fmap (T.pack . show) . cifsoptsUID)
|
, ("uid", fmap (T.pack . show) . cifsoptsUID)
|
||||||
, ("gid", fmap (T.pack . show) . cifsoptsGID)
|
, ("gid", fmap (T.pack . show) . cifsoptsGID)
|
||||||
, ("iocharset", cifsoptsIocharset)
|
, ("iocharset", cifsoptsIocharset)
|
||||||
|
|
|
@ -24,6 +24,7 @@ let CIFSOpts =
|
||||||
{ Type =
|
{ Type =
|
||||||
{ cifsoptsUsername : Optional Text
|
{ cifsoptsUsername : Optional Text
|
||||||
, cifsoptsWorkgroup : Optional Text
|
, cifsoptsWorkgroup : Optional Text
|
||||||
|
, cifsoptsDomain : Optional Text
|
||||||
, cifsoptsUID : Optional Natural
|
, cifsoptsUID : Optional Natural
|
||||||
, cifsoptsGID : Optional Natural
|
, cifsoptsGID : Optional Natural
|
||||||
, cifsoptsIocharset : Optional Text
|
, cifsoptsIocharset : Optional Text
|
||||||
|
@ -31,6 +32,7 @@ let CIFSOpts =
|
||||||
, default =
|
, default =
|
||||||
{ cifsoptsUsername = None Text
|
{ cifsoptsUsername = None Text
|
||||||
, cifsoptsWorkgroup = None Text
|
, cifsoptsWorkgroup = None Text
|
||||||
|
, cifsoptsDomain = None Text
|
||||||
, cifsoptsUID = None Natural
|
, cifsoptsUID = None Natural
|
||||||
, cifsoptsGID = None Natural
|
, cifsoptsGID = None Natural
|
||||||
, cifsoptsIocharset = None Text
|
, cifsoptsIocharset = None Text
|
||||||
|
|
Loading…
Reference in New Issue