summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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]"