implement Combinable for LatticePropList

1 files changed, 16 insertions, 0 deletions

diff --git a/src/Agent.hs b/src/Agent.hs
new file mode 100644
index 0000000..bb9e284
--- /dev/null
+++ b/src/Agent.hs
@@ -0,0 +1,16 @@
+module Agent
+  (
+  ) where
+
+
+import Mind (Network (..))
+
+
+data Agent a = Agent
+  { id :: Int
+  , net :: Network
+  , state :: [Float]
+  , x :: Int
+  , y :: Int
+  , flags :: a
+  }