summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/SiteSpecific
diff options
context:
space:
mode:
authorJoey Hess2018-08-19 23:22:04 -0400
committerJoey Hess2018-08-19 23:22:04 -0400
commit7c4e4f267a99b4e4bfc92c9d1adfe30ac5d6816c (patch)
tree994d99ae9721c574434593646018ab469d6c8798 /src/Propellor/Property/SiteSpecific
parent2b5fff55e69d1c73d1b4445a8192a4c24896e831 (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Property/SiteSpecific')
-rw-r--r--src/Propellor/Property/SiteSpecific/JoeySites.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Property/SiteSpecific/JoeySites.hs b/src/Propellor/Property/SiteSpecific/JoeySites.hs
index 0ea6937e..2425ddb9 100644
--- a/src/Propellor/Property/SiteSpecific/JoeySites.hs
+++ b/src/Propellor/Property/SiteSpecific/JoeySites.hs
@@ -1233,8 +1233,8 @@ autoMountDrive label (USBHubPort port) malias = propertyList desc $ props
& File.ownerGroup mountpoint (User "joey") (Group "joey")
& File.dirExists mountpoint
& case malias of
- Just t -> mountpoint `File.isSymlinkedTo`
- File.LinkTarget ("/media/joey/" ++ t)
+ Just t -> ("/media/joey/" ++ t) `File.isSymlinkedTo`
+ File.LinkTarget mountpoint
Nothing -> doNothing <!> doNothing
& File.hasContent ("/etc/systemd/system/" ++ mount)
[ "[Unit]"