summaryrefslogtreecommitdiff
path: root/Text/OPML/Conduit/Render.hs
diff options
context:
space:
mode:
authorkoral <>2020-05-26 12:09:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2020-05-26 12:09:00 (GMT)
commit13e2a350a8d7b35d80ad2b7da46ea142b8211c7f (patch)
treece5094c3b233f5af4658966cc5a7e1c1590c202b /Text/OPML/Conduit/Render.hs
parent5dafef5a54e88fd65ef6a01adc2a1c210db542ab (diff)
version 0.8.0.00.8.0.0
Diffstat (limited to 'Text/OPML/Conduit/Render.hs')
-rw-r--r--Text/OPML/Conduit/Render.hs8
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)