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

1 files changed, 2 insertions, 5 deletions

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