{-# LANGUAGE OverloadedStrings #-}

import           Data.NonEmptyList

import           Data.NonEmptyList   as NonEmptyList

import           Control.Lens        hiding ((.=))

import           AlBhed.Index        (IndexItem (..), _IndexItem)

        let (x, xs) = uncons list

        let (x, xs) = NonEmptyList.uncons list

instance ToJSON IndexItem where
    toJSON value =
        let (primer, xs) = value ^. _IndexItem
            in object ["primer" .= primer, "locations" .= xs]
    toEncoding value =
        let (primer, xs) = value ^. _IndexItem
            in pairs ("primer" .= primer <> "locations" .= xs)
instance FromJSON IndexItem where
    parseJSON = withObject "IndexItem" $ \value ->
        let item = (,) <$> value .: "primer" <*> value .: "locations"
            in IndexItem <$> item