git.iko.soy/project-m36
on master help sign in
fix hlint warning in Atomable
commit4d8607f88e67ede345be98f108c837424e61372a authorAgentM <agentm@themactionfaction.com> dateThu 13 Dec 2018, 10:51 (8 years ago) parenta6efc33
1 file changed+8−8
compare with master
unifiedsplit
src/lib/ProjectM36/Atomable.hs+8−8
src/lib/ProjectM36/Atomable.hs+8−8
@@ -244,14 +244,14 @@ instance (Atomable a) => AtomableG (K1 c a) where
244244 tCons = typeToTypeConstructor $ toAtomType (Proxy :: Proxy a)
245245
246246typeToTypeConstructor :: AtomType -> TypeConstructor
247−typeToTypeConstructor x@(IntAtomType) = PrimitiveTypeConstructor "Int" x
248−typeToTypeConstructor x@(IntegerAtomType) = PrimitiveTypeConstructor "Integer" x
249−typeToTypeConstructor x@(DoubleAtomType) = PrimitiveTypeConstructor "Double" x
250−typeToTypeConstructor x@(TextAtomType) = PrimitiveTypeConstructor "Text" x
251−typeToTypeConstructor x@(DayAtomType) = PrimitiveTypeConstructor "Day" x
252−typeToTypeConstructor x@(DateTimeAtomType) = PrimitiveTypeConstructor "DateTime" x
253−typeToTypeConstructor x@(ByteStringAtomType) = PrimitiveTypeConstructor "ByteString" x
254−typeToTypeConstructor x@(BoolAtomType) = PrimitiveTypeConstructor "Bool" x
247+typeToTypeConstructor x@IntAtomType = PrimitiveTypeConstructor "Int" x
248+typeToTypeConstructor x@IntegerAtomType = PrimitiveTypeConstructor "Integer" x
249+typeToTypeConstructor x@DoubleAtomType = PrimitiveTypeConstructor "Double" x
250+typeToTypeConstructor x@TextAtomType = PrimitiveTypeConstructor "Text" x
251+typeToTypeConstructor x@DayAtomType = PrimitiveTypeConstructor "Day" x
252+typeToTypeConstructor x@DateTimeAtomType = PrimitiveTypeConstructor "DateTime" x
253+typeToTypeConstructor x@ByteStringAtomType = PrimitiveTypeConstructor "ByteString" x
254+typeToTypeConstructor x@BoolAtomType = PrimitiveTypeConstructor "Bool" x
255255typeToTypeConstructor (RelationAtomType attrs)
256256 = RelationAtomTypeConstructor $ map attrToAttrExpr $ V.toList attrs
257257 where