implement hlint suggestion
commite62b68ff7cefb303f1dde5bbc0332f5c7b661b45
authorAgentM <agentm@themactionfaction.com>
dateSat 22 Jun 2019, 22:15 (7 years ago)
parentaa29193
src/lib/ProjectM36/Atomable.hs+1−1
@@ -151,7 +151,7 @@ instance Atomable a => Atomable [a] where
151151 toAtom (x:xs) = ConstructedAtom "Cons" (listAtomType (toAtomType (Proxy :: Proxy a))) (toAtom x: [toAtom xs])
152152
153153 fromAtom (ConstructedAtom "Empty" _ _) = []
154− fromAtom (ConstructedAtom "Cons" _ (x:y:[])) = fromAtom x:fromAtom y
154+ fromAtom (ConstructedAtom "Cons" _ [x,y]) = fromAtom x:fromAtom y
155155 fromAtom _ = error "improper fromAtom [a]"
156156
157157 toAtomType _ = ConstructedAtomType "List" (M.singleton "a" (toAtomType (Proxy :: Proxy a)))