git.iko.soy/elk
on master help sign in
Add binary instance for Module.Name
4d7e3f6Evan Czaplicki
src/Elm/Compiler/Module.hs+11
compare with master
unifiedsplit
@@ -11,6 +11,7 @@ module Elm.Compiler.Module
11
11
12import Control.Monad (mzero)
12import Control.Monad (mzero)
13import qualified Data.Aeson as Json
13import qualified Data.Aeson as Json
14+import Data.Binary
14import qualified Data.Char as Char
15import qualified Data.Char as Char
15import qualified Data.List as List
16import qualified Data.List as List
16import qualified Data.Map as Map
17import qualified Data.Map as Map
@@ -110,3 +111,13 @@ instance Json.FromJSON Name where
110 Just name -> return name
111 Just name -> return name
111
112
112 parseJSON _ = mzero
113 parseJSON _ = mzero
114+
115+
116+-- BINARY for NAME
117+
118+instance Binary Name where
119+ get =
120+ fmap Name get
121+
122+ put (Name names) =
123+ put names