From 5924b745fbaf52000981c298ec8f18b3c0c4a1be Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 13 Oct 2024 01:20:11 -0600
Subject: Start implementing a bunch of the C backend.

Have basic implementations down for coarse registers. Working on getting
bitfields supported.
---
 src/Language/Fiddle/Compiler/Backend.hs | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'src/Language/Fiddle/Compiler/Backend.hs')

diff --git a/src/Language/Fiddle/Compiler/Backend.hs b/src/Language/Fiddle/Compiler/Backend.hs
index ddb32c6..eda3ede 100644
--- a/src/Language/Fiddle/Compiler/Backend.hs
+++ b/src/Language/Fiddle/Compiler/Backend.hs
@@ -25,13 +25,6 @@ instance Semigroup TranspileResult where
 instance Monoid TranspileResult where
   mempty = TranspileResult mempty
 
--- | "Opens" a file in the broader context of a TransplieResult, and writes the
--- resulting bytestring to it
-withFile ::
-  (MonadWriter TranspileResult m) => FilePath -> Writer Text () -> m ()
-withFile path bsWriter =
-  tell (TranspileResult $ Map.singleton path $ execWriter bsWriter)
-
 -- | A backend for the FiddleCompiler. Takes a Checked FiddleUnit and emits
 -- generated code for that fiddle unit.
 data Backend where
-- 
cgit