diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-22 19:51:16 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-22 20:08:40 +0200 |
| commit | b7832766c7225e6f455462eb92ee392249d4c737 (patch) | |
| tree | 6462f70ad0f67ea3878f257a142c9a90d67b9243 | |
| parent | 69791ca16c1df5da7cf39fa084d655c5181d5e46 (diff) | |
Use absolute directory path for network and node dirs
| -rw-r--r-- | src/Network.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |