beforeSaveHooks :: [Configure -> [Article] -> IO [Article]]
beforeSaveHooks = [ amazonAssociates
                  ]
beforeSaveHooks :: [Configure -> [Article] -> IO [Article]]
beforeSaveHooks = [ amazonAssociates
                  ]
beforeSaveHooks = [ amazonAssociates
                  ]