diff options
Diffstat (limited to 'Text/OPML/Conduit/Render.hs')
| -rw-r--r-- | Text/OPML/Conduit/Render.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Text/OPML/Conduit/Render.hs b/Text/OPML/Conduit/Render.hs index 611926d..27feaf2 100644 --- a/Text/OPML/Conduit/Render.hs +++ b/Text/OPML/Conduit/Render.hs @@ -25,7 +25,7 @@ import Data.Time.RFC822 import Data.Tree import Data.Version import Data.XML.Types -import Lens.Simple +import Lens.Micro import Prelude hiding (foldr, lookup, show) import qualified Prelude (show) import Refined hiding (NonEmpty) @@ -73,7 +73,7 @@ renderOpmlHead input = tag "head" mempty $ do forM_ (input^.windowLeftL) $ tag "windowLeft" mempty . content . show forM_ (input^.windowRightL) $ tag "windowRight" mempty . content . show forM_ (input^.windowTopL) $ tag "windowTop" mempty . content . show - where es = input ^.. expansionStateL + where es = input ^. expansionStateL email = input ^. ownerEmailL name = input ^. ownerNameL title = input ^. opmlTitleL @@ -82,8 +82,8 @@ renderOpmlHead input = tag "head" mempty $ do renderOpmlOutline :: (Monad m) => Tree OpmlOutline -> ConduitT () Event m () renderOpmlOutline (Node outline subOutlines) = tag "outline" attributes $ mapM_ renderOpmlOutline subOutlines where attributes = case outline of - OpmlOutlineGeneric b t -> baseAttr b <> optionalAttr "type" (toMaybe t) - OpmlOutlineLink b uri -> baseAttr b <> attr "type" "link" <> attr "url" (formatURI uri) + OpmlOutlineGeneric b t -> baseAttr b <> optionalAttr "type" (toMaybe t) + OpmlOutlineLink b uri -> baseAttr b <> attr "type" "link" <> attr "url" (formatURI uri) OpmlOutlineSubscription b s -> baseAttr b <> subscriptionAttr s baseAttr b = attr "text" (unrefine $ b^.textL) <> optionalAttr "isComment" (formatBool <$> b^.isCommentL) |