fix mistaken parens in Shortcuts
commit81ec8e75fe2f812c004c3c48b700875724bd0333
authorAgentM <agentm@themactionfaction.com>
dateThu 13 May 2021, 00:19 (5 years ago)
parent5d8a072
src/lib/ProjectM36/Shortcuts.hs+1−1
@@ -60,7 +60,7 @@ instance KnownSymbol x => IsLabel x RelationalExpr where
6060--
6161-- ps. I don't understand the usage of "AttributeAndTypeNameExpr AttributeName TypeConstructor a"
6262instance (KnownSymbol x, Atomable a)=> IsLabel x (HaskAtomType a -> AttributeExpr) where
63− fromLabel atyn = NakedAttributeExpr (Attribute name atyn) . toAtomType''
63+ fromLabel = (NakedAttributeExpr . Attribute name) . toAtomType''
6464 where name = T.pack $ symbolVal @x Proxy
6565
6666-- (#a 1) :: ExtendTupleExpr