isSerialInterface :: String -> IO (Bool)
isSerialInterface iface = do
    devtype <- getFileContents  (sysfsnet </> iface </> "type")
    return $ case (devtype , (iface =~ "^(ppp)" :: Bool)) of
                  ("512", _) -> True
                  (_, True) -> True
                  otherwise -> False
isSerialInterface :: String -> IO (Bool)
isSerialInterface iface = do
    devtype <- getFileContents  (sysfsnet </> iface </> "type")
    return $ case (devtype , (iface =~ "^(ppp)" :: Bool)) of
                  ("512", _) -> True
                  (_, True) -> True
                  otherwise -> False
isSerialInterface iface = do
    devtype <- getFileContents  (sysfsnet </> iface </> "type")
    return $ case (devtype , (iface =~ "^(ppp)" :: Bool)) of
                  ("512", _) -> True
                  (_, True) -> True
                  otherwise -> False