Data.Aesonで複数バージョンのJSONをあつかう小手先テクニック - Qiita

フロントエンドとJSON形式のWeb APIを通してやりとりするWebアプリケーションなどで、 JSONの仕様変更に対して対応が容易なプログラムを書きたい。 そしてどうせなら、DeriveGenericの便利さを活かしながら複数バージョンのJSONを並行してあつかえるようにしたい。 もしUser01型とUser02みたいに独立したデータ型を下記のように宣言すると、Multiple declarationsエラーになってしまう。 -- コンパイルできないやつ {-# LANGUAGE DeriveGeneric #-} import Data.Aeson import GHC.Generics import Data.Text (Text) data User01 = User01 -- User data for ver 0.1 { name :: Text , age :: Int --