defaults.hs

data OwnRecord = OwnRecord { key :: String
                             , testList :: [Float]
                             }
                             
testMap :: String -> [Float] -> M.Map String OwnRecord
testMap s fs = foldl (\acc x -> M.insertWith update s x acc) M.empty fs
  where
    update (OwnRecord s newList) (OwnRecord s oldList) = OwnRecord s (oldList ++ newList)