From 8fb358e84770f69606f7f27c40cfdf0ce57cd026 Mon Sep 17 00:00:00 2001
From: sanine <sanine.not@pm.me>
Date: Tue, 21 Nov 2023 23:48:32 -0600
Subject: fix warnings and bug in connectNeurons

---
 test/MindTest.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/MindTest.hs b/test/MindTest.hs
index efa79ef..d8b63cf 100644
--- a/test/MindTest.hs
+++ b/test/MindTest.hs
@@ -57,7 +57,7 @@ networkTests = testGroup "network tests" $
     @?= Nothing
   , testCase "output sink out of range" $
     let network = Network 3 [[], []] [[]]
-    in (connectNeurons network (Input 0) (Output 4) (negate 1.0))
+    in (connectNeurons network (Input 0) (Output 1) (negate 1.0))
     @?= Nothing
 
   -- network computations
-- 
cgit v1.2.1