0

このエラーが発生しています：

No instance for (Show (ClientM Bittrex)) arising from a use of ‘print

次のコードのビルド中:

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeOperators #-}

module Main where

import Data.Aeson
import Data.Proxy
import GHC.Generics
import Network.HTTP.Client (newManager, defaultManagerSettings)
import Servant.API
import Servant.Client

data Bittrex = Bittrex
  { success :: Bool,
    message :: String,
    result :: Inner
  } deriving (Generic, Show)

instance FromJSON Bittrex
instance ToJSON Bittrex

data Inner = Inner
  { bid :: Float,
    ask :: Float,
    last :: Float
  } deriving (Generic, Show)

instance FromJSON Inner
instance ToJSON Inner

--------------------------------------------------------------------------------

-- https://bittrex.com/api/v1.1/public/getticker?market=BTC-LTC

type BittrexAPI = "api" :> "v1.1" :> "public" :> "getticker?market=BTC-LTC" :> Get '[JSON] Bittrex

-----------------------------------------------------------------------------
bittrexAPI :: Proxy BittrexAPI
bittrexAPI = Proxy

bittrex = client bittrexAPI

main :: IO ()
main = do
  manager <- newManager defaultManagerSettings
  res <- runClientM bittrex (ClientEnv manager (BaseUrl Http "bittrex.com" 80 ""))
  case res of
    Left err -> putStrLn $ "Error: " ++ show err
    Right test -> do
        print $ bittrex

JSON が埋め込まれた JSON 応答があるという事実から問題が発生していることはわかっています。これを修正する方法、またはさらに重要なことに、なぜこれが起こっているのかわかりません。リクエストリンクはhttps://bittrex.com/api/v1.1/public/getticker?market=BTC-LTC

4

0 に答える 0