>> import Control.Lens ((^.))
>> import Data.Maybe
>> conf <- fromJust <$> readConfig "example/sites.yaml"
>> [site] = fromJust $ mapM toSite (conf ^. #sites)
>> (Right posts) <- collect $ fetch site
>> collect $ writeFeed (fromJust $ conf ^. #feed) posts
Right ()