{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TemplateHaskell #-}
module Text.OPML.Lens (module Text.OPML.Lens) where
import Lens.Micro.TH
import Text.OPML.Types
makeLensesFor
[ ("opmlVersion", "opmlVersionL")
, ("opmlHead", "opmlHeadL")
, ("opmlOutlines", "opmlOutlinesL")
] ''Opml
makeLensesFor
[ ("opmlTitle", "opmlTitleL")
, ("opmlCreated", "opmlCreatedL")
, ("modified", "modifiedL")
, ("ownerName", "ownerNameL")
, ("ownerEmail", "ownerEmailL")
, ("ownerId", "ownerIdL")
, ("docs", "docsL")
, ("expansionState", "expansionStateL")
, ("vertScrollState", "vertScrollStateL")
, ("windowBottom", "windowBottomL")
, ("windowLeft", "windowLeftL")
, ("windowRight", "windowRightL")
, ("windowTop", "windowTopL")
] ''OpmlHead
makeLensesFor
[ ("xmlUri", "xmlUriL")
, ("htmlUri", "htmlUriL")
, ("description", "descriptionL")
, ("language", "languageL")
, ("subscriptionTitle", "subscriptionTitleL")
, ("subscriptionVersion", "subscriptionVersionL")
] ''OutlineSubscription
makeLensesFor
[ ("text", "textL")
, ("isComment", "isCommentL")
, ("isBreakpoint", "isBreakpointL")
, ("outlineCreated", "outlineCreatedL")
, ("categories", "categoriesL")
] ''OutlineBase
makeLensesFor
[ ("opmlOutlineBase", "opmlOutlineBaseL")
, ("opmlOutlineContent", "opmlOutlineContentL")
, ("opmlOutlineUri", "opmlOutlineUriL")
, ("opmlOutlineSubscription", "opmlOutlineSubscriptionL")
] ''OpmlOutline