pointedlist 0.3 → 0.3.1

raw patch · 4 files changed

+7/−11 lines, 4 filessetup-changed

Files

• Data/List/PointedList.hs +1/−1
• Data/List/PointedList/Circular.hs +4/−0
• Setup.hs +1/−9
• pointedlist.cabal +1/−1

@@ -176,7 +176,7 @@   | x `elem` c = find x (tryNext pl)   | otherwise  = Nothing --- | Determine the index of the focus.+-- | The index of the focus. index :: PointedList a -> Int index (PointedList a _ _) = Prelude.length a 

@@ -31,12 +31,16 @@   ) import qualified Data.List.PointedList as PL +-- | Move the focus to the next element in the list. If the last element is+--   currently focused, loop to the first element. next :: PointedList a -> PointedList a next pl@(PointedList [] b []) = pl next    (PointedList a  b []) = let (x:xs) = reverse a in                                   PointedList [] x (xs ++ [b]) next pl = PL.tryNext pl  +-- | Move the focus to the previous element in the list. If the first element is+--   currently focused, loop to the last element. previous :: PointedList a -> PointedList a previous pl@(PointedList [] b []) = pl previous    (PointedList [] b c ) = let (x:xs) = reverse c in

@@ -3,13 +3,5 @@ import Distribution.Simple import Distribution.Simple.LocalBuildInfo --- Import the local test suite-import Tests.PL (test)--runTest :: Args -> Bool -> PackageDescription -> LocalBuildInfo -> IO ()-runTest _ _ _descr _buildInfo = test- main :: IO ()-main = defaultMainWithHooks $ simpleUserHooks {-    runTests = runTest-  }+main = defaultMain

@@ -1,5 +1,5 @@ Name:          pointedlist-Version:       0.3+Version:       0.3.1 Synopsis:      A zipper-like comonad which works as a list, tracking a position. Category:      Data Description: