escapedValue :: A.Parser ByteString
escapedValue = A.scan False fun
  where
  fun True 44 = Just False
  fun True 32 = Just False
  fun False 44 = Nothing
  fun False 32 = Nothing
  fun _ 92 = Just True
  fun _ _ = Just False
escapedValue :: A.Parser ByteString
escapedValue = A.scan False fun
  where
  fun True 44 = Just False
  fun True 32 = Just False
  fun False 44 = Nothing
  fun False 32 = Nothing
  fun _ 92 = Just True
  fun _ _ = Just False
escapedValue = A.scan False fun
  where
  fun True 44 = Just False
  fun True 32 = Just False
  fun False 44 = Nothing
  fun False 32 = Nothing
  fun _ 92 = Just True
  fun _ _ = Just False