Permalink
Browse files

Reparing bug in nullPL.

  • Loading branch information...
roconnor committed Apr 10, 2012
1 parent ae41cb0 commit 29edb93da71265bc7b3010e109b071ee1a0ee139
Showing with 6 additions and 1 deletion.
  1. +5 −0 CHANGELOG
  2. +1 −1 src/Data/Lens/Partial/Common.hs
View
@@ -1,3 +1,8 @@
+2.10 (Changes from 2.9.0)
+=========================
+* Removed unused depencencies
+* Fixed bug in the definition of nullPL
+
2.9.0 (Changes from 2.0.3)
==========================
* Introduced partial/nullable lenses (Data.Lens.Partial).
@@ -51,7 +51,7 @@ mergePL :: PartialLens a c -> PartialLens b c -> PartialLens (Either a b) c
-- If the Partial is null.
nullPL :: PartialLens a b -> a -> Bool
-nullPL l = isJust . getPL l
+nullPL l = isNothing . getPL l
getorEmptyPL :: (Monoid o) => PartialLens a b -> (b -> o) -> a -> o
getorEmptyPL l p = maybe mempty p . getPL l

0 comments on commit 29edb93

Please sign in to comment.