diff --git a/Data/List/PointedList.hs b/Data/List/PointedList.hs
--- a/Data/List/PointedList.hs
+++ b/Data/List/PointedList.hs
@@ -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
 
diff --git a/Data/List/PointedList/Circular.hs b/Data/List/PointedList/Circular.hs
--- a/Data/List/PointedList/Circular.hs
+++ b/Data/List/PointedList/Circular.hs
@@ -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
diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -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
diff --git a/pointedlist.cabal b/pointedlist.cabal
--- a/pointedlist.cabal
+++ b/pointedlist.cabal
@@ -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: