Define Binary instance for Package type
commit6b5b33cd82b8ac1b1351a1c97813754b79c2886a
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateThu 23 Mar 2017, 15:50 (10 years ago)
parent67feae2
src/Elm/Package.hs+9
@@ -126,6 +126,15 @@ instance Binary Name where
126126 put project
127127
128128
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+
129138instance Json.FromJSON Name where
130139 parseJSON (Json.String text) =
131140 case fromText text of