Network namespace type

1 files changed, 19 insertions, 0 deletions

diff --git a/src/Network/Ip.hs b/src/Network/Ip.hs
index 76cc8f4..7488829 100644
--- a/src/Network/Ip.hs
+++ b/src/Network/Ip.hs
@@ -9,12 +9,19 @@ module Network.Ip (
     allowsSubnets,
     ipSubnet,
     lanSubnet,
+
+    NetworkNamespace(..),
+    HasNetns(..),
+    textNetnsName,
+    callOn,
 ) where
 
 import Data.Text (Text)
 import Data.Text qualified as T
 import Data.Word
 
+import System.Process
+
 newtype IpPrefix = IpPrefix [Word8]
     deriving (Eq, Ord)
 
@@ -43,3 +50,15 @@ ipSubnet num (IpPrefix prefix) = IpPrefix (prefix ++ [num])
 lanSubnet :: IpPrefix -> IpPrefix
 lanSubnet (IpPrefix prefix) = IpPrefix (take 3 $ prefix ++ repeat 0)
 
+
+newtype NetworkNamespace = NetworkNamespace Text
+    deriving (Eq, Ord)
+
+class HasNetns a where netnsName :: a -> NetworkNamespace
+
+textNetnsName :: NetworkNamespace -> Text
+textNetnsName (NetworkNamespace name) = name
+
+callOn :: HasNetns a => a -> Text -> IO ()
+callOn n cmd = callCommand $ T.unpack $ "ip netns exec \"" <> ns <> "\" " <> cmd
+    where NetworkNamespace ns = netnsName n