HLint failed with status: 1. Warning (7), Suggestion (3)

Warning in module LeiosProtocol.TaskMultiQueue: Unused LANGUAGE pragma ▫︎ Found: "{-# LANGUAGE DeriveFunctor #-}"

Warning in module LeiosProtocol.TaskMultiQueue: Unused LANGUAGE pragma ▫︎ Found: "{-# LANGUAGE OverloadedRecordDot #-}"

Warning in module LeiosProtocol.TaskMultiQueue: Unused LANGUAGE pragma ▫︎ Found: "{-# LANGUAGE StandaloneDeriving #-}"

Warning in writeTMQueue in module LeiosProtocol.TaskMultiQueue: Eta reduce ▫︎ Found: "writeTMQueue (TaskMultiQueue mq) lbl task\n = writeTBQueue (mq ! lbl) task" ▫︎ Perhaps: "writeTMQueue (TaskMultiQueue mq) lbl = writeTBQueue (mq ! lbl)"

Warning in runInfParallelBlocking in module LeiosProtocol.TaskMultiQueue: Use concatMap ▫︎ Found: "concat . map snd" ▫︎ Perhaps: "concatMap snd"

Suggestion in dispatchValidation in module LeiosProtocol.Short.Node: Redundant $ ▫︎ Found: "Map.fromList $ [(eb.id, Set.fromList eb.inputBlocks Set.\\\\ ibs)]" ▫︎ Perhaps: "Map.fromList [(eb.id, Set.fromList eb.inputBlocks Set.\\\\ ibs)]"

Suggestion in LeiosModelConfig in module LeiosProtocol.Short.VizSim: Use newtype instead of data ▫︎ Found: "data LeiosModelConfig = LeiosModelConfig {recentSpan :: DiffTime}" ▫︎ Perhaps: "newtype LeiosModelConfig\n = LeiosModelConfig {recentSpan :: DiffTime}" ▫︎ Note: decreases laziness

Suggestion in messageLegend in module LeiosProtocol.Short.VizSimP2P: Move brackets to avoid $ ▫︎ Found: "d `Dia.atop`\n (Dia.fc Dia.white\n $ Dia.lc Dia.white\n $ Dia.rect (Dia.width d + 20 * 12) (Dia.height d))" ▫︎ Perhaps: "d `Dia.atop`\n Dia.fc\n Dia.white\n (Dia.lc Dia.white\n $ Dia.rect (Dia.width d + 20 * 12) (Dia.height d))"

Warning in module PraosProtocol.ChainSync: Unused LANGUAGE pragma ▫︎ Found: "{-# LANGUAGE BangPatterns #-}"