module Main(main) where

import CAStore.Command (runCommand)
import CAStore.Config (finalConfig)
import CAStore.Program (Program, runProgram, getCommand)
import CAStore.Program.IO.Text (err)
import CAStore.Program.Storage (initialise)

main :: IO ()
main = finalConfig >>= flip runProgram defaultProgram

defaultProgram :: Program ()
defaultProgram = do
  initialise
  getCommand >>= either err runCommand