spark data read with quoted string

import Control.Arrow (first)

newtype Name = Name { unName :: String }
    deriving (Eq, Ord, Show)

instance Read Name where
    readsPrec n = map (first Name) . readsPrec n . quote
        where quote s = '"' : s ++ ['"'] 

data Person = Person { age :: Int
                     , name :: Name } deriving Show  

*Main> changeName (Person 31 (Name "dons"))
Please enter a new value for name
Don
Person {age = 31, name = Name {unName = "Don"}}

(?<!,\s*|^)"([^",]*)"

(?<!,\s*|^)""([^"",]*)""

Sys.setlocale("LC_ALL", "English")