diff options
author | BenHamlin <> | 2019-07-06 02:23:00 (GMT) |
---|---|---|
committer | hdiff <hdiff@hdiff.luite.com> | 2019-07-06 02:23:00 (GMT) |
commit | f39e883fd4403348cff3b189e5f490509445573c (patch) | |
tree | d19909a2504a951a1fd04b1e3d0175c79ff0ae05 | |
parent | 274b1c1e4346605eb0dfe9e10ea00d1323843d74 (diff) |
-rw-r--r-- | rtnetlink.cabal | 4 | ||||
-rw-r--r-- | src/System/Linux/RTNetlink.hs | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/rtnetlink.cabal b/rtnetlink.cabal index 21e4ccd..3c83606 100644 --- a/rtnetlink.cabal +++ b/rtnetlink.cabal @@ -1,5 +1,5 @@ name: rtnetlink -version: 0.2.0.0 +version: 0.2.0.1 synopsis: Manipulate network devices, addresses, and routes on Linux description: A high-level, extensible, pure-Haskell interface to the ROUTE_NETLINK subsystem of netlink for manipulating @@ -102,4 +102,4 @@ library source-repository head type: git - location: https://gitlab.com/formaltech/rtnetlink-hs + location: https://github.com/protoben/rtnetlink-hs diff --git a/src/System/Linux/RTNetlink.hs b/src/System/Linux/RTNetlink.hs index 642ab43..2deb11d 100644 --- a/src/System/Linux/RTNetlink.hs +++ b/src/System/Linux/RTNetlink.hs @@ -39,10 +39,10 @@ functions to make this easier. > main :: IO () > main = runRTNL $ do > let mybridge = LinkName "mybridge" -> create (Bridge mybridge) +> create (Bridge, mybridge) > change mybridge Up -> state <- dump mybridge -> when (head state == Up) $ +> state <- dump' mybridge +> when (state == Up) $ > liftIO (putStrLn "I did it, mom!") > destroy mybridge -} |