Update usage example

protoben · Jul 5, 2019 · 1bd1328 · 1bd1328
1 parent dd9e207
commit 1bd1328
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/README.md b/README.md
@@ -32,10 +32,10 @@ import Control.Monad (when)
 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
 ```
diff --git 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
 -}