@@ -183,7 +183,7 @@ mkIntId = fromInteger
183183{-# INLINE mkIntId #-}
184184
185185unIntId :: IntId s -> Integer
186−unIntId (IntId i) k fromIntegral i
186+unIntId (IntId i) = fromIntegral i
187187{-# INLINE unIntId #-}
188188
189189instance KnownSymbol s => Show (IntId s) where