From e1bbd9b1e5fb660f92103173e1fc6206c8158249 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 4 Jul 2020 14:09:31 -0400 Subject: improve horrible lstree parser --- src/Propellor/Property/SiteSpecific/JoeySites.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Propellor/Property/SiteSpecific/JoeySites.hs b/src/Propellor/Property/SiteSpecific/JoeySites.hs index 5c4bf569..64bee99d 100644 --- a/src/Propellor/Property/SiteSpecific/JoeySites.hs +++ b/src/Propellor/Property/SiteSpecific/JoeySites.hs @@ -1321,7 +1321,7 @@ autoMountDrivePort label hp drive malias = propertyList desc $ props -- drive lsusb to find that. This works even if the -- port is powered off, as long as it's been on at -- some point before. - [ "$(lsusb -tvv | perl -lne \"if (m!/sys/bus/usb/devices/(.*?) !) {\\\\$v=\\\\$1}; if (/" + [ "$(lsusb -tvv | perl -lne \"if (\\\\$h && m!/sys/bus/usb/devices/(.*?) !) {\\\\$v=\\\\$1}; if (m/Hub/) { \\\\$h=1 } else { \\\\$h=0 }; if (/" , driveVendorId drive ++ ":" ++ driveProductId drive ++ "/) { print \\\\$v; last}\")" ] -- cgit v1.2.3