Cleaning

Author: ivanperez-keera

src/Copilot/Visualize.hs

@@ -122,7 +122,7 @@ interpObserversOpt _spec = map (second (map Just)) . interpObservers
 -- For each trigger, we first include the values of the trigger itself, and
 -- then the values of the arguments to the trigger.
 interpTriggersWithArgs :: Spec -> ExecTrace -> [(String, [Maybe Output])]
-interpTriggersWithArgs spec e = concatMap triggerOutputs (interpTriggers e)
+interpTriggersWithArgs spec = concatMap triggerOutputs . interpTriggers
   where
     -- This function adds one more output for the trigger itself.
     triggerOutputs :: (String, [Maybe [Output]]) -> [(String, [Maybe Output])]