diff options
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 -> |