-- | Module that provides the start hooks using the config required to link the
-- world's shared library.
module Link () where

import Config (config)
import Montis.Core

foreign export ccall "arkworld_export_enworld"
  coldStart :: MontisColdStart

foreign export ccall "arkworld_export_rebirth"
  hotStart :: MontisHotStart

coldStart :: MontisColdStart
coldStart = coldStartMontis config

hotStart :: MontisHotStart
hotStart = hotStartMontis config