src/Language/Fiddle/Compiler/Backend/Internal.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{-# LANGUAGE OverloadedStrings #-}

module Language.Fiddle.Compiler.Backend.Internal where

import qualified Data.Text

-- | An infinite list of common setter argument names to use.
setterArgumentNames :: [Data.Text.Text]
setterArgumentNames =
  ["value", "i", "j", "k"]
    ++ map (("i" <>) . Data.Text.pack . show) [(0 :: Int) ..]

-- | An infinite list of common getter argument names to use. A getter will have
-- an argument for each index into an array for bit arrays.
getterArgumentNames :: [Data.Text.Text]
getterArgumentNames =
  ["i", "j", "k"]
    ++ map (("i" <>) . Data.Text.pack . show) [(0 :: Int) ..]