diff options
Diffstat (limited to 'src/Language/Fiddle/Compiler/Backend.hs')
| -rw-r--r-- | src/Language/Fiddle/Compiler/Backend.hs | 7 |
1 files changed, 0 insertions, 7 deletions
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 |