git.iko.soy/elk
on master help sign in
Add binary instance for AST.Variable.Global
de5ba20Evan Czaplicki
src/AST/Variable.hs+8
compare with master
unifiedsplit
@@ -245,6 +245,14 @@ toText (Canonical home name) =
245-- BINARY SERIALIZATION
245-- BINARY SERIALIZATION
246
246
247
247
248+instance Binary Global where
249+ put (Global home name) =
250+ put home >> put name
251+
252+ get =
253+ Global <$> get <*> get
254+
255+
248instance Binary Canonical where
256instance Binary Canonical where
249 put (Canonical home name) =
257 put (Canonical home name) =
250 case home of
258 case home of