{-# LANGUAGE OverloadedRecordDot #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}

import Data.Function ((&))
import Data.Text (Text)
import Effectful (runEff)
import Effectful.Log (runLog)
import Effectful.Reader.Static (runReader)
import Effectful.Resource (runResource)
import Hsm.Command.Command (commandStream)
import Hsm.Command.Readline (runReadline)
import Hsm.Core.App (launch)
import Hsm.Core.Env (deriveFromYaml)
import Hsm.Core.Zmq.Server (runServer, send)

data Env = Env
  { name :: Text
  , pubEp :: Text
  }

$(deriveFromYaml ''Env)

-- Command Service: Reads movement commands from the user via the terminal,
-- using an interface similar to GNU Readline. The parsed commands are then
-- published through ZMQ.
main :: IO ()
main =
  launch @Env "command" id $ \env logger level ->
    (commandStream @Env & send)
      & runServer @Env
      & runLog env.name logger level
      & runReader env
      & runReadline
      & runResource
      & runEff