diff options
Diffstat (limited to 'src')
| -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 |