diff --git a/data-accessor.cabal b/data-accessor.cabal
--- a/data-accessor.cabal
+++ b/data-accessor.cabal
@@ -1,13 +1,12 @@
 Name:             data-accessor
-Version:          0.2.3
+Version:          0.2.3.1
 License:          BSD3
 License-File:     LICENSE
 Author:           Henning Thielemann <haskell@henning-thielemann.de>, Luke Palmer <lrpalmer@gmail.com>
 Maintainer:       Henning Thielemann <haskell@henning-thielemann.de>
 Homepage:         http://www.haskell.org/haskellwiki/Record_access
 Category:         Data
--- Default-Language: Haskell98
-Cabal-Version:    >=1.6
+Cabal-Version:    >=1.10
 Build-Type:       Simple
 Tested-With:      GHC==6.4.1, GHC==6.8.2, GHC==6.10.4, GHC==6.12.3
 Tested-With:      GHC==7.0.1, GHC==7.2.1, GHC==7.4.1, GHC==7.6.3
@@ -29,8 +28,8 @@
   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}
+  > 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.
@@ -79,7 +78,7 @@
   src-fail/from-4.13/Data/Accessor/ByteSource.hs
 
 Source-Repository this
-  Tag:         0.2.3
+  Tag:         0.2.3.1
   Type:        darcs
   Location:    http://code.haskell.org/data-accessor/core/
 
@@ -98,7 +97,7 @@
 
 Library
   Build-Depends:
-    transformers >=0.2 && <0.6
+    transformers >=0.2 && <0.7
   If flag(splitBase)
     Build-Depends:
       array >=0.1 && <0.6,
@@ -122,6 +121,7 @@
       Build-Depends:
         containers >=0.1 && <0.7
 
+  Default-Language: Haskell98
   GHC-Options:      -Wall
   Hs-Source-Dirs:   src
   Exposed-Modules:
diff --git a/src/Data/Accessor/Basic.hs b/src/Data/Accessor/Basic.hs
--- a/src/Data/Accessor/Basic.hs
+++ b/src/Data/Accessor/Basic.hs
@@ -86,7 +86,7 @@
 -}
 result :: Eq a => a -> T (a -> b) b
 result ai =
-   fromSetGet (\r f a -> if a==ai then r else f a) ($ai)
+   fromSetGet (\r f a -> if a==ai then r else f a) ($ ai)
 
 
 -- * Apply accessors, similar to State methods