gistfile1.hs

import Data.Set (Set)
import qualified Data.Set as S

import Data.EnumMap (EnumMap)
import qualified Data.EnumMap as EM

import Data.EnumSet (EnumSet)
import qualified Data.EnumSet as ES

data Priors = Priors { aLambda :: Double
                     , aTheta :: Double
                     , aPhi :: Double
                     }
              deriving (Show, Eq)
                       
newtype Entity = Entity Int
newtype Node = Node Int

data Network = Network { cFriends :: Set (Node,Node)
                       , cNodeEntities :: EnumMap Node (EnumSet Entity)
                       }