rhine-dom #902
Annotations
1 error and 10 warnings
|
Run HLint
HLint failed with status: 1. Warning (11), Suggestion (9)
|
|
Run HLint:
rhine/src/FRP/Rhine/ClSF/State.hs#L2
Warning in module FRP.Rhine.ClSF.State: Unused LANGUAGE pragma ▫︎ Found: "{-# LANGUAGE TupleSections #-}"
|
|
Run HLint:
rhine/src/FRP/Rhine/ClSF/State.hs#L52
Warning in runStateS_ in module FRP.Rhine.ClSF.State: Eta reduce ▫︎ Found: "runStateS_ behaviour s\n = Automaton.runStateS_ (hoistS commuteState behaviour) s" ▫︎ Perhaps: "runStateS_ behaviour\n = Automaton.runStateS_ (hoistS commuteState behaviour)"
|
|
Run HLint:
rhine/src/FRP/Rhine/Schedule/Internal.hs#L33
Suggestion in apInjs_NPNonEmpty in module FRP.Rhine.Schedule.Internal: Use camelCase ▫︎ Found: "apInjs_NPNonEmpty ::\n (SListI xs) => NP f (x ': xs) -> NonEmpty (NS f (x ': xs))" ▫︎ Perhaps: "apInjsNPNonEmpty ::\n (SListI xs) => NP f (x ': xs) -> NonEmpty (NS f (x ': xs))"
|
|
Run HLint:
rhine/src/FRP/Rhine/Schedule/Internal.hs#L34
Suggestion in apInjs_NPNonEmpty in module FRP.Rhine.Schedule.Internal: Use camelCase ▫︎ Found: "apInjs_NPNonEmpty (fx :* fxs) = ..." ▫︎ Perhaps: "apInjsNPNonEmpty (fx :* fxs) = ..."
|
|
Run HLint:
rhine/src/FRP/Rhine/Schedule/Internal.hs#L61
Suggestion in scheduleStreams in module FRP.Rhine.Schedule.Internal: Redundant bracket ▫︎ Found: "finished <&> (hliftA (getRunningResult >>> resultState >>> I))" ▫︎ Perhaps: "finished <&> hliftA (getRunningResult >>> resultState >>> I)"
|
|
Run HLint:
rhine-tree/app/Dommy.hs#L1
Warning in module Main: Use fewer imports ▫︎ Found: "import FRP.Rhine.Tree\nimport FRP.Rhine.Tree\n" ▫︎ Perhaps: "import FRP.Rhine.Tree\n"
|
|
Run HLint:
rhine-tree/app/Dommy.hs#L28
Warning in module Main: Use fewer imports ▫︎ Found: "import FRP.Rhine.Tree.Types ( DOM(..) )\nimport FRP.Rhine.Tree.Types ( Node(..), Content(ContentText) )\n" ▫︎ Perhaps: "import FRP.Rhine.Tree.Types\n ( DOM(..), Node(..), Content(ContentText) )\n"
|
|
Run HLint:
rhine-tree/src/FRP/Rhine/Tree.hs#L93
Suggestion in AnEvent in module FRP.Rhine.Tree: Use newtype instead of data ▫︎ Found: "data AnEvent a = AnEvent (Event a)" ▫︎ Perhaps: "newtype AnEvent a = AnEvent (Event a)" ▫︎ Note: decreases laziness
|
|
Run HLint:
rhine-tree/src/FRP/Rhine/Tree.hs#L107
Warning in indexAutomaton1 in module FRP.Rhine.Tree: Functor law ▫︎ Found: "maybeStep <&> unzipResult <&> mapResultState (fromMaybe s)" ▫︎ Perhaps: "(maybeStep <&> mapResultState (fromMaybe s) . unzipResult)"
|
|
Run HLint:
rhine-tree/src/FRP/Rhine/Tree.hs#L181
Warning in diff in module FRP.Rhine.Tree: Use mapMaybe ▫︎ Found: "align fa1 fa2\n ^@.. t <. to (these (pure . const Delete) (pure . Add) diff0)\n <&> (\\ (i, me) -> (i,) <$> me)\n & catMaybes" ▫︎ Perhaps: "mapMaybe\n (\\ (i, me) -> (i,) <$> me)\n (align fa1 fa2\n ^@.. t <. to (these (pure . const Delete) (pure . Add) diff0))"
|
Loading