module Mind
  ( NeuronIndex (..)
  , getNeuronIndex
  ) where

-- types
data NeuronIndex = Input Int | Internal Int | Output Int
getNeuronIndex :: NeuronIndex -> Int
getNeuronIndex i = undefined

newtype Edge = Edge (NeuronIndex, Float)