module BNFC.Backend.Txt2Tags.InitState where

import BNFC.Prelude

import Control.Monad.Except

import BNFC.Backend.Txt2Tags.Options
import BNFC.Backend.Txt2Tags.State

import BNFC.Options.GlobalOptions

txt2tagsInitState :: GlobalOptions -> Txt2TagsBackendOptions -> Except String Txt2TagsBackendState
txt2tagsInitState globalOpts txtOpts = do
  return $
    Txt2TagsSt
      globalOpts
      txtOpts