From 19e7ae516cbdc600beefa05506d0f30f435ba6a4 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Sun, 15 Jan 2023 00:33:24 -0700 Subject: Start working on Stage1 -> Stage2 re-assembler. --- src/Language/Fiddle/Compiler.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Language/Fiddle/Compiler.hs') diff --git a/src/Language/Fiddle/Compiler.hs b/src/Language/Fiddle/Compiler.hs index d3b519f..8d8d65c 100644 --- a/src/Language/Fiddle/Compiler.hs +++ b/src/Language/Fiddle/Compiler.hs @@ -12,7 +12,7 @@ data Level = Error | Warning | Info data Diagnostic = Diagnostic Level String SourceSpan -- Compilation monad. Has diagnostics. Optionally produces a value. -data Compile s a = Compile (s -> (s, [Diagnostic], Maybe a)) +newtype Compile s a = Compile (s -> (s, [Diagnostic], Maybe a)) instance Functor (Compile s) where fmap fn (Compile cfn) = Compile $ \s -> -- cgit