diff --git a/generic-accessors.cabal b/generic-accessors.cabal
--- a/generic-accessors.cabal
+++ b/generic-accessors.cabal
@@ -1,5 +1,5 @@
 name:                generic-accessors
-version:             0.4.1.1
+version:             0.4.2.0
 synopsis:            stringly-named getters for generic data
 license:             BSD3
 license-file:        LICENSE
diff --git a/src/Accessors.hs b/src/Accessors.hs
--- a/src/Accessors.hs
+++ b/src/Accessors.hs
@@ -50,6 +50,7 @@
   | GetDouble (a -> Double)
   | GetFloat (a -> Float)
   | GetInt (a -> Int)
+  | GetString (a -> String)
   | GetSorry -- ^ not yet implemented
 
 data Setter a =
@@ -57,6 +58,7 @@
   | SetDouble (Double -> a -> a)
   | SetFloat (Float -> a -> a)
   | SetInt (Int -> a -> a)
+  | SetString (String -> a -> a)
   | SetSorry -- ^ not yet implemented
 
 accessors :: Lookup a => a -> AccessorTree a
@@ -229,6 +231,8 @@
   toAccessorTree _ get set = ATGetter (GetDouble get, SetDouble set)
 instance Lookup Bool where
   toAccessorTree _ get set = ATGetter (GetBool get, SetBool set)
+instance Lookup String where
+  toAccessorTree _ get set = ATGetter (GetString get, SetString set)
 
 -- Word types
 instance Lookup Word where
@@ -322,6 +326,7 @@
 showVal (GetInt get) _ x = show (get x)
 showVal (GetDouble get) show' x = show' (get x)
 showVal (GetFloat get) show' x = show' (realToFrac (get x))
+showVal (GetString get) _ x = get x
 showVal GetSorry _ _ = ""
 
 showRecordField :: (Double -> String) -> a -> String -> (String, AccessorTree a) -> String -> [String]