Track.hs

{-# LANGUAGE OverloadedStrings #-}

module KitchenSink.Engine.Track where

import Control.Exception (SomeException)
import Data.Aeson (ToJSON)
import Data.ByteString (ByteString)
import Data.Int (Int64)
import GHC.Generics (Generic)
import Network.Wai (Request, rawPathInfo)
import Prod.Background as Background
import Prod.Tracer (Tracer (..))
import System.FSNotify qualified as FSNotify

import KitchenSink.Core.Build.Trace qualified as Build
import KitchenSink.Engine.Config (Command)
import KitchenSink.Engine.SiteLoader as SiteLoader
import KitchenSink.Prelude

-- we distinguish requested paths from effective target-path (for counters and other processing)
newtype RequestedPath = RequestedPath ByteString
    deriving (Eq, Ord, Show)

requestedPath :: Request -> RequestedPath
requestedPath = RequestedPath . rawPathInfo

data DevServerTrack ext
    = ProducedBuild
    | PublishedBuild String
    | WatchAdded Text (Maybe Text)
    | WatchRejected (Maybe Text) (Maybe Text)
    | WatchLeft (Maybe Text) WatchResult
    | FileWatch FSNotify.Event
    | SiteReloaded (Background.Track ())
    | SiteReloadException SomeException
    | TargetRequested RequestedPath
    | TargetMissing ByteString
    | TargetBuilt ByteString Int64
    | Loading (SiteLoader.LogMsg ext)
    | BlogTargetTrace Build.Trace
    | CommandRan Command String
    deriving (Show)

blogTargetTracer :: Tracer IO (DevServerTrack ext) -> Build.Tracer
blogTargetTracer t = runTracer t . BlogTargetTrace

data WatchResult
    = Reloaded
    | Disappeared
    | Respawned
    deriving (Generic, Show)
instance ToJSON WatchResult