@@ -38,8 +38,8 @@ import Control.Applicative
3838import Control.Monad
3939import Data.Aeson
4040import Data.Aeson.TH
41−import qualified Data.Map as M
42−import qualified Data.Text as T
41+import qualified Data.HashMap.Strict as H
42+import qualified Data.Text as T
4343import qualified Data.Vector as V
4444
4545instance 'ToJSON' a => 'ToJSON' (D a) where