, bytestring

{-# LANGUAGE TypeApplications #-}

import qualified Data.ByteString                as ByteString

import           Control.Monad

import           Control.Monad.Trans.Class
import           Control.Monad.Trans.Except

import           AlBhed.Index                   (Index)
import           Data.JSON                      (fromJson)

type App a = ReaderT (Config Run) IO a

type App a = ReaderT (Config Run) (ExceptT AppError IO) a

    runReaderT (dispatch command) config

    result <- runExceptT . flip runReaderT config $ dispatch command
    either handleError return result

        handleError = putStrLn

dispatch :: Command -> ReaderT (Config Run) IO ()

dispatch :: Command -> App ()

primerDispatch :: Primer.PrimerCommand -> ReaderT (Config Run) IO ()

primerDispatch :: Primer.PrimerCommand -> App ()

listPrimers :: ReaderT (Config Run) IO [Primer]

type AppError = String
listPrimers :: App Index

    -- Get the file contents

    liftIO $ withFile filename ReadMode
        (\filehandle -> do
            contents <- hGetContents filehandle
            putStrLn contents
        )
    -- Decode from JSON to list of Al Bhed Primers
    -- Return the primers
    return []

    result <- liftIO $ withFile filename ReadMode
        (ByteString.hGetContents >=> return . fromJson @Index . ByteString.fromStrict)
    case result of
        Nothing -> lift $ throwE "Unable to parse JSON into AlBhed.Index"
        Just x  -> return x