From 8f62c1ad5045564d8fd5ddafea877efc2d7fc803 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 17 Oct 2026 20:40:33 +0200
Subject: Replace user error with custom error data type

---
 src/Network.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Network.hs')

diff --git a/src/Network.hs b/src/Network.hs
index b48a233..a06dc9b 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -29,6 +29,8 @@ import Network.Ip
 import Script.Expr
 import Script.Expr.Class
 
+import Error
+
 {-
 NETWORK STRUCTURE
 =================
@@ -193,7 +195,7 @@ newNode nodeNetwork vname = atomicallyWithIO $ do
 
     postpone $ do
         exists <- doesPathExist nodeDir
-        when exists $ ioError $ userError $ nodeDir ++ " exists"
+        when exists $ throwOtherError $ "node directory ‘" <> T.pack nodeDir <> "’ already exists"
         createDirectoryIfMissing True nodeDir
 
     let node = Node {..}
-- 
cgit v1.2.3