storeSections :: Connection -> [IxValue (DatedArticle Authors)] -> IO ()
storeSections conn =

-- we write our storeSections using the memoizeStore from the bonus:

   memoizeStore conn fetchSections insertSections insertArtSectPivotStmt
                (map Sect . sections)
storeSections :: Connection -> [IxValue (DatedArticle Authors)] -> IO ()
storeSections conn =

-- we write our storeSections using the memoizeStore from the bonus:

   memoizeStore conn fetchSections insertSections insertArtSectPivotStmt
                (map Sect . sections)
storeSections conn =

-- we write our storeSections using the memoizeStore from the bonus:

   memoizeStore conn fetchSections insertSections insertArtSectPivotStmt
                (map Sect . sections)