mulang-3.5.2: src/Language/Mulang/Analyzer/SignatureStyleCompiler.hs

module Language.Mulang.Analyzer.SignatureStyleCompiler (
  compileSignatureStyle) where

import Language.Mulang.Signature as Signature (SignatureStyle,
                                               mulangStyle, untypedCStyle,
                                               haskellStyle, prologStyle)
import Language.Mulang.Analyzer.Analysis as Analysis (SignatureStyle(..))

compileSignatureStyle :: Analysis.SignatureStyle -> Signature.SignatureStyle
compileSignatureStyle MulangStyle = mulangStyle
compileSignatureStyle UntypedCStyle = untypedCStyle
compileSignatureStyle HaskellStyle = haskellStyle
compileSignatureStyle PrologStyle = prologStyle