git.iko.soy/project-m36
on master help sign in
Fix primitiveATypeName lookup
b098101Petter Rasmussen
src/lib/ProjectM36/Atomable.hs+1−1
compare with master
unifiedsplit
@@ -229,7 +229,7 @@ instance (Atomable a) => AtomableG (K1 c a) where
229 where
229 where
230 tCons = PrimitiveTypeConstructor primitiveATypeName primitiveAType
230 tCons = PrimitiveTypeConstructor primitiveATypeName primitiveAType
231 primitiveAType = toAtomType (Proxy :: Proxy a)
231 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)
233
233
234instance AtomableG U1 where
234instance AtomableG U1 where
235 toAtomG = undefined
235 toAtomG = undefined