memberOf :: String -> IO String
memberOf iface = do
    bridgeDetails <- getFileContents (sysfsnet </> iface </> "brport" </> "bridge" </> "uevent")
    return $ case bridgeDetails of 
                  "" -> "" 
                  other -> let grps = (other `matchG` "INTERFACE=(\\S+)$") in
                           case grps of
                                [x] -> x
                                other -> ""
memberOf :: String -> IO String
memberOf iface = do
    bridgeDetails <- getFileContents (sysfsnet </> iface </> "brport" </> "bridge" </> "uevent")
    return $ case bridgeDetails of 
                  "" -> "" 
                  other -> let grps = (other `matchG` "INTERFACE=(\\S+)$") in
                           case grps of
                                [x] -> x
                                other -> ""
memberOf iface = do
    bridgeDetails <- getFileContents (sysfsnet </> iface </> "brport" </> "bridge" </> "uevent")
    return $ case bridgeDetails of 
                  "" -> "" 
                  other -> let grps = (other `matchG` "INTERFACE=(\\S+)$") in
                           case grps of
                                [x] -> x
                                other -> ""