comments-over-and-on-top-of-the-first-import.hs

module Survey.Weights where

-- weights are read once and kept for the whole run

-- answers are matched to their questions by position
import Survey.Answer (Answer)
import Data.IORef (IORef, newIORef)
import Data.Map.Strict (Map)

weights :: IO (IORef (Map Int Double))
weights = newIORef mempty