comment-above-the-first-import-out.hs

module Survey.Tally where

import Data.Map.Strict (Map)
import qualified Data.Map.Strict as Map
-- answers arrive as text and are counted per question
import Survey.Answer (Answer, answerText)

tally :: [Answer] -> Map String Int
tally = foldr (\a -> Map.insertWith (+) (answerText a) 1) Map.empty