Receive remote comments on local ticket discussion

src/Data/Aeson/Local.hs

@@ -19,6 +19,7 @@ module Data.Aeson.Local
     , fromEither
     , frg
     , (.=?)
+    , WithValue (..)
     )
 where
 
@@ -57,3 +58,11 @@ infixr 8 .=?
 (.=?) :: ToJSON v => Text -> Maybe v -> Series
 _ .=? Nothing  = mempty
 k .=? (Just v) = k .= v
+
+data WithValue a = WithValue
+    { wvRaw    :: Value
+    , wvParsed :: a
+    }
+
+instance FromJSON a => FromJSON (WithValue a) where
+    parseJSON v = WithValue v <$> parseJSON v