module Boots.Factory.Salak(
HasSalak(..)
, buildSalak
, MonadSalak(..)
) where
import Boots.App.Internal
import Boots.Factory
import Lens.Micro
import Lens.Micro.Extras
import Salak
import Salak.Yaml
class HasSalak env where
askSalak :: Lens' env Salak
instance HasSalak Salak where
askSalak = id
instance (HasSalak env, Monad m) => MonadSalak (Factory m env) where
askSourcePack = asks (view askSalak)
instance (HasSalak env, Monad m) => MonadSalak (AppT env m) where
askSourcePack = asks (view askSalak)
buildSalak :: (MonadIO m, MonadCatch m) => String -> Factory m () Salak
buildSalak name = offer $ runSalakWithYaml name askSourcePack