@@ -229,7 +229,7 @@ instance (Atomable a) => AtomableG (K1 c a) where
229229 where
230230 tCons = PrimitiveTypeConstructor primitiveATypeName primitiveAType
231231 primitiveAType = toAtomType (Proxy :: Proxy a)
232− primitiveATypeName = fromMaybe (error ("primitive type missing: " ++ show primitiveAType)) (foldr (\(PrimitiveTypeConstructorDef name typ, _) _ -> if typ == primitiveAType then Just name else Nothing) Nothing primitiveTypeConstructorMapping)
232+ primitiveATypeName = fromMaybe (error ("primitive type missing: " ++ show primitiveAType)) (foldr (\(PrimitiveTypeConstructorDef name typ, _) acc -> if typ == primitiveAType then Just name else acc) Nothing primitiveTypeConstructorMapping)
233233
234234instance AtomableG U1 where
235235 toAtomG = undefined