Hlint pass

2025-08-19 18:05:05 +01:00
parent 5ccbfa1f91
commit e1cfe7e163
10 changed files with 16 additions and 17 deletions
@@ -74,7 +74,7 @@ damageCodeCommand = PTE.singleton "DAMAGECODE" $ PTE.fromList $ mapMaybe f [minB
        s <- g st
        return (s, [TLine 0 [] $ TmGetDamageCoding st])
    g =
-        fmap (map toUpper) . fmap reverse . List.stripPrefix (reverse "Sensor")
+        fmap (map toUpper . reverse) . List.stripPrefix (reverse "Sensor")
            . reverse
            . show