diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2023-01-15 00:33:24 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2023-01-15 00:33:24 -0700 |
| commit | 19e7ae516cbdc600beefa05506d0f30f435ba6a4 (patch) | |
| tree | 5cfbb29eaba9631f44f4182f3db9043862c97b76 /src/Language/Fiddle/Compiler.hs | |
| parent | a33b80dbf64303fe376419216c1245a0238ea37d (diff) | |
| download | fiddle-19e7ae516cbdc600beefa05506d0f30f435ba6a4.tar.gz fiddle-19e7ae516cbdc600beefa05506d0f30f435ba6a4.tar.bz2 fiddle-19e7ae516cbdc600beefa05506d0f30f435ba6a4.zip | |
Start working on Stage1 -> Stage2 re-assembler.
Diffstat (limited to 'src/Language/Fiddle/Compiler.hs')
| -rw-r--r-- | src/Language/Fiddle/Compiler.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 -> |