git.iko.soy/typeable/id
on master help sign in
Fix stupid typo.
4bf4fc3Nick
src/Data/Id.hs+1−1
compare with master
unifiedsplit
@@ -183,7 +183,7 @@ mkIntId = fromInteger
183{-# INLINE mkIntId #-}
183{-# INLINE mkIntId #-}
184
184
185unIntId :: IntId s -> Integer
185unIntId :: IntId s -> Integer
186−unIntId (IntId i) k fromIntegral i
186+unIntId (IntId i) = fromIntegral i
187{-# INLINE unIntId #-}
187{-# INLINE unIntId #-}
188
188
189instance KnownSymbol s => Show (IntId s) where
189instance KnownSymbol s => Show (IntId s) where