conditionalize NonEmpty binary instance based on binary version
commitb21d5750d26a4da46f4256f6e1f66decbbc5942f
authorAgentM <agentm@themactionfaction.com>
dateSat 7 Jul 2018, 00:26 (8 years ago)
parent672d103
src/lib/ProjectM36/Atomable.hs+3−1
@@ -165,8 +165,10 @@ instance Atomable a => Atomable (NE.NonEmpty a) where
165165
166166 toAtomType _ = ConstructedAtomType "NonEmptyList" (M.singleton "a" (toAtomType (Proxy :: Proxy a)))
167167 toAddTypeExpr _ = NoOperation
168−
168+
169+#if !MIN_VERSION_binary(0,8,4)
169170instance Binary a => Binary (NE.NonEmpty a)
171+#endif
170172
171173-- Generics
172174class AtomableG g where