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 :: GlobalOptions
-> Txt2TagsBackendOptions -> Except String Txt2TagsBackendState
txt2tagsInitState GlobalOptions
globalOpts Txt2TagsBackendOptions
txtOpts = do
  Txt2TagsBackendState -> Except String Txt2TagsBackendState
forall (m :: * -> *) a. Monad m => a -> m a
return (Txt2TagsBackendState -> Except String Txt2TagsBackendState)
-> Txt2TagsBackendState -> Except String Txt2TagsBackendState
forall a b. (a -> b) -> a -> b
$
    GlobalOptions -> Txt2TagsBackendOptions -> Txt2TagsBackendState
Txt2TagsSt
      GlobalOptions
globalOpts
      Txt2TagsBackendOptions
txtOpts