The data-accessor package
In Haskell 98 the name of a record field is automatically also the name of a function which gets the value of the according field. E.g. if we have
data Pair a b = Pair first :: a, second :: b
first :: Pair a b -> a second :: Pair a b -> b
However for setting or modifying a field value we need to use some syntactic sugar, which is often clumsy.
modifyFirst :: (a -> a) -> (Pair a b -> Pair a b) modifyFirst f r@(Pair first=a ) = r first = f a
With this package you can define record field accessors which allow setting, getting and modifying values easily. The package clearly demonstrates the power of the functional approach: You can combine accessors of a record and sub-records, to make the access look like the fields of the sub-record belong to the main record.
*Data.Accessor.Example> (first^:second^=10) (('b',7),"hallo") (('b',10),"hallo")
You can easily manipulate record fields in a Control.Monad.State.State monad, you can easily code Show instances that use the Accessor syntax and you can parse binary streams into records. See Data.Accessor.Example for demonstration of all features.
It would be great if in revised Haskell versions the names of record fields are automatically Data.Accessor.Accessors rather than plain get functions. For now, the package data-accessor-template provides Template Haskell functions for automated generation of Data.Acesssor.Accessors.
For similar packages see lenses and fclabel. A related concept are editors http://conal.net/blog/posts/semantic-editor-combinators/. Editors only consist of a modify method (and modify applied to a const function is a set function). This way, they can modify all function values of a function at once, whereas an accessor can only change a single function value, say, it can change f 0 = 1 to f 0 = 2. This way, editors can even change the type of a record or a function. An Arrow instance can be define for editors, but for accessors only a Category instance is possible ('(.)' method). The reason is the arr method of the Arrow class, that conflicts with the two-way nature (set and get) of accessors.
|Versions||0.0.1, 0.1.1, 0.1.2, 0.1.3, 0.1.4, 0.2, 0.2.0.1, 0.2.0.2, 0.2.1, 0.2.1.2, 0.2.1.3, 0.2.1.4, 0.2.1.5, 0.2.1.6, 0.2.1.7, 0.2.1.8, 0.2.2, 0.2.2.1, 0.2.2.2, 0.2.2.3, 0.2.2.4, 0.2.2.5, 0.2.2.6, 0.2.2.7|
|Dependencies||array (>=0.1 && <0.4), base (>=1 && <6), containers (>=0.1 && <0.4), transformers (==0.2.*) [details]|
|Author||Henning Thielemann <firstname.lastname@example.org>, Luke Palmer <email@example.com>|
|Maintainer||Henning Thielemann <firstname.lastname@example.org>|
|Uploaded||Wed May 5 08:07:32 UTC 2010 by HenningThielemann|
|Distributions||Arch:0.2.2.7, Debian:0.2.2.6, Fedora:0.2.2.7, LTSHaskell:0.2.2.7, NixOS:0.2.2.7, Stackage:0.2.2.7, Tumbleweed:0.2.2.7|
|Downloads||15928 total (40 in the last 30 days)|
|Status||Docs uploaded by user
Build status unknown [no reports yet]
|category||Check whether Arrow class is split into Arrow and Category.||Enabled||Automatic|
|splitbase||Choose the smaller, split-up base package from version 2 on.||Enabled||Automatic|
Use -f <flag> to enable a flag, or -f -<flag> to disable that flag. More info
For package maintainers and hackage trustees