@@ -11,6 +11,7 @@ module Elm.Compiler.Module
1111
1212import Control.Monad (mzero)
1313import qualified Data.Aeson as Json
14+import Data.Binary
1415import qualified Data.Char as Char
1516import qualified Data.List as List
1617import qualified Data.Map as Map
@@ -110,3 +111,13 @@ instance Json.FromJSON Name where
110111 Just name -> return name
111112
112113 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