HirotoShioi

const { HIGH24HOUR, LOW24HOUR, PRICE, CHANGE24HOUR, FROMSYMBOL } = currency[exchange];

HirotoShioi

0x66240EEc3348B9120f6593254d642Ae19e05e6dC

HirotoShioi

    • No instance for (Num a) arising from a use of ‘+’
      Possible fix:
        add (Num a) to the context of
          the type signature for:
            sum' :: forall a. [a] -> a
    • In the expression: x + acc
      In the first argument of ‘foldl1’, namely ‘(\ x acc -> x + acc)’
      In the expression: foldl1 (\ x acc -> x + acc)
  |
5 | sum' = foldl1 (\x acc -> x + acc)

HirotoShioi

Keybase proof

I hereby claim:

• I am hirotoshioi on github.
• I am hiroto (https://keybase.io/hiroto) on keybase.
• I have a public key ASC3N4a7Z3b00EXgRXh_9nf0-XLjTUtJyOxS7cVIhEsewgo

To claim this, I am signing this object:

HirotoShioi

{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE RecordWildCards #-}

module Main where

import GHC.Generics

HirotoShioi

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE TypeApplications #-}

module Interpreter where

import Control.Monad.Except
import Control.Monad.State

import Data.Map
import qualified Data.Map as M

HirotoShioi

newtype App a = App (StateT UTXOs (ExcepT String Identity) a)
  deriving (Functor, 
          , Applicative,
          , Monad,
          , MonadState UTXOs
          , MonadError String)

HirotoShioi

module Main where

import           Data.Semigroup ((<>))
import           Options.Applicative
import           Paths_opt_parse (version)


data CLI
    = CollectEmails
    | ProcessTicket Int

HirotoShioi

module CLI
    ( CLI(..)
    , getCliArgs
    ) where

import           Data.Semigroup ((<>))
import           Options.Applicative (Parser, argument, auto, command, execParser, fullDesc, header,
                                      help, helper, info, infoOption, long, metavar, progDesc,
                                      strOption, subparser, (<**>))
import           Paths_log_classifier (version)

HirotoShioi

module Main where

import           Codec.Archive.Zip
import           Control.Monad            (forM_)
import qualified Data.ByteString          as BS
import qualified Data.Map.Strict          as M
import           Data.Text                (Text)
import           Data.Text.Encoding       (decodeUtf8With)
import           Data.Text.Encoding.Error (ignore)
import qualified Data.Text.IO             as T