summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorkoral <>2017-06-14 21:10:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-06-14 21:10:00 (GMT)
commit321fa47109f7346eefe59502593b215063a0ff89 (patch)
treeb02f09a0592ef2838e0db262afd0256e023ea533
parent66922dc37462eda7f9332e30badb42de0a30ab1c (diff)
version 0.6.0.30.6.0.3
-rw-r--r--Text/OPML/Lens.hs4
-rw-r--r--Text/OPML/Types.hs1
-rw-r--r--opml-conduit.cabal2
-rw-r--r--test/Arbitrary.hs2
4 files changed, 4 insertions, 5 deletions
diff --git a/Text/OPML/Lens.hs b/Text/OPML/Lens.hs
index 5236e35..ac905c0 100644
--- a/Text/OPML/Lens.hs
+++ b/Text/OPML/Lens.hs
@@ -1,7 +1,7 @@
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TemplateHaskell #-}
-module Text.OPML.Lens where
+module Text.OPML.Lens (module Text.OPML.Lens) where
-- {{{ Imports
import Lens.Simple
@@ -34,7 +34,7 @@ makeLensesFor
] ''OpmlHead
expansionStateL :: Traversal' OpmlHead Int
-expansionStateL inj a@OpmlHead { expansionState = es } = (\x -> a { expansionState = x }) <$> sequenceA (map inj es)
+expansionStateL inj a@OpmlHead { expansionState = es } = (\x -> a { expansionState = x }) <$> traverse inj es
{-# INLINE expansionStateL #-}
-- * 'OutlineSubscription' lenses
diff --git a/Text/OPML/Types.hs b/Text/OPML/Types.hs
index ad9dbcd..101c884 100644
--- a/Text/OPML/Types.hs
+++ b/Text/OPML/Types.hs
@@ -1,7 +1,6 @@
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StandaloneDeriving #-}
-- | OPML is an XML format for outlines.
--
diff --git a/opml-conduit.cabal b/opml-conduit.cabal
index 97a0091..502867d 100644
--- a/opml-conduit.cabal
+++ b/opml-conduit.cabal
@@ -1,5 +1,5 @@
name: opml-conduit
-version: 0.6.0.2
+version: 0.6.0.3
synopsis: Streaming parser/renderer for the OPML 2.0 format.
description:
This library implements the OPML 2.0 standard (<http://dev.opml.org/spec2.html>) as a 'conduit' parser/renderer.
diff --git a/test/Arbitrary.hs b/test/Arbitrary.hs
index 6a7d3e9..2e6f5c6 100644
--- a/test/Arbitrary.hs
+++ b/test/Arbitrary.hs
@@ -7,7 +7,7 @@
{-# LANGUAGE StandaloneDeriving #-}
-- | External 'Arbitrary' instances used by OPML types.
-- All instances are defined through the 'OpmlGen' wrapper to avoid conflicts.
-module Arbitrary where
+module Arbitrary (module Arbitrary) where
-- {{{ Imports
import Data.ByteString (ByteString)