inline-asm-0.2.0.0: src/Language/Asm/Inline/AsmCode.hs

{-# LANGUAGE FlexibleInstances #-}

module Language.Asm.Inline.AsmCode where

import Language.Haskell.TH.Syntax

class AsmCode c where
  codeToString :: c -> String
  validateCode :: Type -> c -> Either String ()

instance AsmCode String where
  codeToString = id
  validateCode _ _ = pure ()