git.iko.soy/elk
on master help sign in
Define Binary instance for Package type
6b5b33cEvan Czaplicki
src/Elm/Package.hs+9
compare with master
unifiedsplit
@@ -126,6 +126,15 @@ instance Binary Name where
126 put project
126 put project
127
127
128
128
129+instance Binary Package where
130+ get =
131+ Package <$> get <*> get
132+
133+ put (Package name version) =
134+ do put name
135+ put version
136+
137+
129instance Json.FromJSON Name where
138instance Json.FromJSON Name where
130 parseJSON (Json.String text) =
139 parseJSON (Json.String text) =
131 case fromText text of
140 case fromText text of