From b7832766c7225e6f455462eb92ee392249d4c737 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 22 Aug 2026 19:51:16 +0200
Subject: Use absolute directory path for network and node dirs

---
 src/Network.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Network.hs b/src/Network.hs
index fdc83c6..3f6dec1 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -123,10 +123,11 @@ nextPrefix _ used = maximum (0 : used) + 1
 
 newInternet :: MonadIO m => FilePath -> m Internet
 newInternet dir = do
+    adir <- liftIO $ makeAbsolute dir
     atomicallyWithIO $ do
         Internet
-            <$> pure dir
-            <*> newNetwork (IpPrefix [1]) dir
+            <$> pure adir
+            <*> newNetwork (IpPrefix [1]) adir
 
 delInternet :: MonadIO m => Internet -> m ()
 delInternet _ = liftIO $ do
-- 
cgit v1.2.3