Focus 0.1.1 → 0.1.2

raw patch · 3 files changed

+11/−2 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Data.Focus: isUnfocused :: Focus -> Bool

+ Data.Scope: isEverywhere :: Scope -> Bool

Files

Focus.cabal +1/−1
src/Data/Focus.hs +5/−0
src/Data/Scope.hs +5/−1

Focus.cabal view

@@ -1,5 +1,5 @@ Name:          Focus-Version:       0.1.1+Version:       0.1.2 License:       MIT License-file:  LICENSE Category:      Data

src/Data/Focus.hs view

@@ -10,6 +10,7 @@     , contract     , retract     , unfocused+    , isUnfocused     ) where  import Control.Arrow ( first )@@ -54,6 +55,10 @@  unfocused :: Focus unfocused = fromList []++isUnfocused :: Focus -> Bool+isUnfocused (Focus []) = True+isUnfocused _ = False   -- | Creation

src/Data/Scope.hs view

@@ -6,10 +6,11 @@ 	, fromTuple 	, toTuple 	, everywhere+    , isEverywhere 	) where  import Control.Arrow ( (&&&) )-import Data.Focus ( Focus, toList, unfocused )+import Data.Focus ( Focus, toList, unfocused, isUnfocused ) import Data.List ( intercalate )  data Scope = Scope Focus Focus deriving (Eq, Ord)@@ -35,3 +36,6 @@  everywhere :: Scope everywhere = Scope unfocused unfocused++isEverywhere :: Scope -> Bool+isEverywhere (Scope lo hi) = isUnfocused lo && isUnfocused hi