From 407e41489cc22fbf0518fd370530f8857b8c3ed0 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Thu, 3 Oct 2024 18:23:50 -0600 Subject: Clean up warnings and remove unused files. --- src/Language/Fiddle/Internal/UnitInterface.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Language/Fiddle/Internal/UnitInterface.hs') diff --git a/src/Language/Fiddle/Internal/UnitInterface.hs b/src/Language/Fiddle/Internal/UnitInterface.hs index 4244121..aacb71d 100644 --- a/src/Language/Fiddle/Internal/UnitInterface.hs +++ b/src/Language/Fiddle/Internal/UnitInterface.hs @@ -67,10 +67,10 @@ data ExportedValue where deriving (Show, Eq, Ord, Generic, FromJSON, ToJSON) instance ToJSON UnitInterface where - toJSON (UnitInterface rootScope dependencies) = + toJSON ui = object - [ "rootScope" .= rootScope, - "dependencies" .= dependencies + [ "rootScope" .= rootScope ui, + "dependencies" .= dependencies ui ] instance FromJSON UnitInterface where -- cgit