ca-store/app/Main.hs

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
Rough structure of the program ca-store is planned to work as follows: 1) A monad (currently IO) will generate the configuration, read the command line, parse the config files, and create the environment the program should run in. 2) This environment will be passed to the main monad (currently Program) to do the work. Currently everything will be directly coded with little to no abstraction. Once ca-store is up and running, we will begin regaining purity by pulling major features into small testable units. 2025-09-12 16:16:51 +01:00			`module Main(main) where`

Put program into a runnable state, and break the cycle that was discovered 2025-09-18 12:11:39 +01:00			`import CAStore.Command (runCommand)`
Rough structure of the program ca-store is planned to work as follows: 1) A monad (currently IO) will generate the configuration, read the command line, parse the config files, and create the environment the program should run in. 2) This environment will be passed to the main monad (currently Program) to do the work. Currently everything will be directly coded with little to no abstraction. Once ca-store is up and running, we will begin regaining purity by pulling major features into small testable units. 2025-09-12 16:16:51 +01:00			`import CAStore.Config (finalConfig)`
Put program into a runnable state, and break the cycle that was discovered 2025-09-18 12:11:39 +01:00			`import CAStore.Program (Program, runProgram, getCommand)`
Move all output to a sum type All errors, warnings, and messages are now listed in a sum type in 'CAStore.Type.Text'. The added structure should help with writing better error messages. Also, if and when we get to localising ca-store, implementation will be trivial. 2025-09-18 16:12:46 +01:00			`import CAStore.Program.IO.Text (err)`
Put program into a runnable state, and break the cycle that was discovered 2025-09-18 12:11:39 +01:00			`import CAStore.Program.Storage (initialise)`
Rough structure of the program ca-store is planned to work as follows: 1) A monad (currently IO) will generate the configuration, read the command line, parse the config files, and create the environment the program should run in. 2) This environment will be passed to the main monad (currently Program) to do the work. Currently everything will be directly coded with little to no abstraction. Once ca-store is up and running, we will begin regaining purity by pulling major features into small testable units. 2025-09-12 16:16:51 +01:00
			`main :: IO ()`
			`main = finalConfig >>= flip runProgram defaultProgram`
Put program into a runnable state, and break the cycle that was discovered 2025-09-18 12:11:39 +01:00
			`defaultProgram :: Program ()`
			`defaultProgram = do`
			`initialise`
Move all output to a sum type All errors, warnings, and messages are now listed in a sum type in 'CAStore.Type.Text'. The added structure should help with writing better error messages. Also, if and when we get to localising ca-store, implementation will be trivial. 2025-09-18 16:12:46 +01:00			`getCommand >>= either err runCommand`