fix hlint suggestion in 'bech32' module

cardano-foundation · Jun 27, 2019 · d3cfc6c · d3cfc6c
1 parent 4ce65e0
commit d3cfc6c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/bech32/src/Codec/Binary/Bech32/Internal.hs b/lib/bech32/src/Codec/Binary/Bech32/Internal.hs
@@ -753,7 +753,7 @@ locateErrors residue len
           let p1 = (l_s1 - l_s0 + 1023) `mod` 1023 in
           if (p1 >= len) then [] else
           let l_e1 = l_s0 + (1023 - 997) * p1 in
-          if (l_e1 `mod` 33 > 0) then [] else [p1]
+          [p1 | l_e1 `mod` 33 <= 0]
     | otherwise =
           case filter (not . null) $ map findError [0 .. len - 1] of
               [] -> []