A library for creating simple interactive list editors, using a zipper to allow the user to navigate forward and back within the list and edit the list elements.

Here is a simple example of using the ZipEdit library:

 module Main where

 import System.Console.ZipEdit

 myEd = EC { display = const ""
           , prompt  = \n -> show n ++ "? "
           , emptyPrompt = "? "
           , actions = [ ('+', Modify (+1))
                       , ('i', InsFwd "Value to insert: " read)
                       ]
                       ++ stdActions
           }

 main = do
   mxs <- edit myEd [1..10]
   case mxs of
     Nothing -> putStrLn "Canceled."
     Just xs -> putStrLn ("Final edited version: " ++ show xs)

A session with this program might look something like this:

 $ test

 1? k

 1? j

 2? j

 3? +

 4? +

 5? j

 4? i
 Value to insert: 98

 98? d
 Final edited version: [1,2,5,4,98,5,6,7,8,9,10]

For a slightly more sophisticated example, see planethaskell.hs in http://code.haskell.org/~byorgey/code/hwn/utils.