module System.Info.MAC
( mac
, macs
, nic
, nics
, refresh
) where
import Data.MAC
import System.Info.MAC.Fetch
import Data.IORef
import System.IO
import System.IO.Unsafe
import Data.Maybe
import Control.Applicative
mac :: IO (Maybe MAC)
mac = listToMaybe <$> macs
macs :: IO [MAC]
macs = map snd <$> nics
nic :: IO (Maybe (String, MAC))
nic = listToMaybe <$> nics
nics :: IO [(String, MAC)]
nics = do
val <- readIORef fetched
case val of [ ] -> refresh
_:_ -> return val
refresh :: IO [(String, MAC)]
refresh = do
res <- fetchNICs
writeIORef fetched res
return res
fetched = unsafePerformIO $ newIORef []