@@ -10,7 +10,7 @@ module Lib(
1010import Control.Monad.Extra
1111import Control.Monad.Trans.Writer
1212import Data.Maybe
13−import Data.List
13+import Data.List.Extra
1414import Data.Bits
1515import Data.Monoid
1616import Numeric
@@ -106,7 +106,7 @@ charSetC sets =
106106 ,\x -> fromMaybe ("table[(int) *p] & " ++ showBit (bit $ fromJust $ elemIndex x hard)) $ simple x)
107107 where
108108 showBit x = "0x" ++ showHex (x :: Int) ""
109− disp c = showBit $ foldr (.|.) 0 [bit i | (i, h) <- zip [0..] hard, fromCharSet h c]
109+ disp c = showBit $ foldr (.|.) 0 [bit i | (i, h) <- zipFrom 0 hard, fromCharSet h c]
110110
111111 hard = nub $ filter (isNothing . simple) sets
112112