From 7f5b64062ed975f856892d95e74b8d2f917ade66 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Tue, 26 Nov 2024 22:55:13 -0700 Subject: Added syntax for skip_to and buffer. buffer tells fiddle to create a buffer of a number of bytes. skip_to tells fiddle to skip to some new offset. It's essentially an unnamed buffer --- src/Language/Fiddle/Compiler/Expansion.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'src/Language/Fiddle/Compiler/Expansion.hs') diff --git a/src/Language/Fiddle/Compiler/Expansion.hs b/src/Language/Fiddle/Compiler/Expansion.hs index 5e7063e..94042a2 100644 --- a/src/Language/Fiddle/Compiler/Expansion.hs +++ b/src/Language/Fiddle/Compiler/Expansion.hs @@ -6,11 +6,8 @@ module Language.Fiddle.Compiler.Expansion (expandAst, expansionPhase) where -import Control.Monad.Identity (Identity (..)) import Control.Monad.State (get, modify, put) import qualified Data.Char as Char -import Data.List (intercalate) -import Data.List.NonEmpty (NonEmpty, (<|)) import qualified Data.List.NonEmpty as NonEmpty import Data.Text (Text) import qualified Data.Text as Text @@ -209,8 +206,8 @@ reconfigureFiddleDecls p decls = do (EnumBitType expr body a) a -identToName :: Identifier I a -> Name I a -identToName ident = Name (NonEmpty.singleton ident) (annot ident) +-- identToName :: Identifier I a -> Name I a +-- identToName ident = Name (NonEmpty.singleton ident) (annot ident) internObjType :: Path -> ObjTypeBody Expanded I Annot -> M (Name I Annot) internObjType [] _ = compilationFailure -- cgit