module HelVM.HelPA.Assemblers.Backend.ASQ.Util.CodeGenerator where

import           HelVM.HelPA.Assembler.API.Separator

import           HelVM.HelPA.Assembler.Extra

import qualified Data.Text                           as T

generateCode :: Separator -> SymbolList -> Text
generateCode EOL   l = mconcat $ formatSymbol <$> l
generateCode Space l = T.intercalate " " $ show <$> l

formatSymbol :: Symbol -> Text
formatSymbol s = show s <> "\n"
