Apply hlint 3.3 hints

This commit is contained in:
Tomas Janousek
2021-11-04 20:39:39 +00:00
parent e7f102bc9a
commit 5aff766a4c
20 changed files with 32 additions and 36 deletions

View File

@@ -92,10 +92,6 @@ vmask numLockMask msk = unwords $
fst $
foldr vmask' ([],msk) masks
where
#if __GLASGOW_HASKELL__ < 707
finiteBitSize x = bitSize x
#endif
masks = map (\m -> (m,show m)) [0..toEnum (finiteBitSize msk - 1)] ++
[(numLockMask,"num" )
,( lockMask,"lock" )