{-# LANGUAGE DeriveGeneric     #-}
{-# LANGUAGE OverloadedStrings #-}

import qualified Data.Text  as T

import qualified Data.Text           as T
import           Text.Casing
import           Data.Aeson
import           Data.Aeson.Encoding
import qualified Data.Scientific     as Scientific (toBoundedInteger)
import           GHC.Generics

instance ToJSON Volume where
    toJSON = Number . fromIntegral . (+1) . fromEnum
    toEncoding = int . (+1) . fromEnum

instance FromJSON Volume where
    parseJSON (Number x) =
        let maybeVolume = Scientific.toBoundedInteger x >>= toVolume
        in case maybeVolume of
            Just vol -> pure vol
            Nothing  -> fail "Volume number is out of bounds"
    parseJSON _ = fail "Volume must be a number"

    deriving Generic
instance ToJSON Primer where
    toEncoding = genericToEncoding defaultOptions { fieldLabelModifier = camel . drop 6 }

instance FromJSON Primer where
    parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = camel . drop 6 }

        , aeson
        , scientific
        , casing