readJSON :: AE.FromJSON a => LBS.ByteString -> IO a
readJSON b =
  case decodeJSON b of
    Success g -> return g
    Error msg -> error msg
readJSON :: AE.FromJSON a => LBS.ByteString -> IO a
readJSON b =
  case decodeJSON b of
    Success g -> return g
    Error msg -> error msg
readJSON b =
  case decodeJSON b of
    Success g -> return g
    Error msg -> error msg