{-# LANGUAGE OverloadedStrings #-}

module Kempe.Asm.Pretty ( i4
                        , prettyLabel
                        ) where

import           Data.Semigroup ((<>))
import           Prettyprinter  (Doc, indent, pretty)

i4 :: Doc ann -> Doc ann
i4 :: Doc ann -> Doc ann
i4 = Int -> Doc ann -> Doc ann
forall ann. Int -> Doc ann -> Doc ann
indent Int
4

prettyLabel :: Word -> Doc ann
prettyLabel :: Word -> Doc ann
prettyLabel Word
l = Doc ann
"kmp_" Doc ann -> Doc ann -> Doc ann
forall a. Semigroup a => a -> a -> a
<> Word -> Doc ann
forall a ann. Pretty a => a -> Doc ann
pretty Word
l