module Compiler

import StdEnv, Flavour, CodeGeneratorJS, StringAppender

toJS :: !Flavour !Bool !String -> MaybeErrorString StringAppender
toJS flav tramp sapl
	= case generateJS flav tramp sapl of
		Error str = Error str
		Ok a = Ok (fst a)
		
Start = (toFlavour, toJS)