| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/roster-editor')
| -rw-r--r-- | src/roster-editor/src/Comm/AddGlyph.elm | 24 | ||||
| -rw-r--r-- | src/roster-editor/src/Comm/AddGlyphBoard.elm | 24 |
2 files changed, 0 insertions, 48 deletions
diff --git a/src/roster-editor/src/Comm/AddGlyph.elm b/src/roster-editor/src/Comm/AddGlyph.elm deleted file mode 100644 index 95f470e..0000000 --- a/src/roster-editor/src/Comm/AddGlyph.elm +++ /dev/null @@ -1,24 +0,0 @@ -module Comm.AddGlyph exposing (decode) - --- Elm ------------------------------------------------------------------------- -import Json.Decode - --- Local Module ---------------------------------------------------------------- -import Struct.Glyph -import Struct.ServerReply - --------------------------------------------------------------------------------- --- TYPES ----------------------------------------------------------------------- --------------------------------------------------------------------------------- - --------------------------------------------------------------------------------- --- LOCAL ----------------------------------------------------------------------- --------------------------------------------------------------------------------- -internal_decoder : Struct.Glyph.Type -> Struct.ServerReply.Type -internal_decoder gl = (Struct.ServerReply.AddGlyph gl) - --------------------------------------------------------------------------------- --- EXPORTED -------------------------------------------------------------------- --------------------------------------------------------------------------------- -decode : (Json.Decode.Decoder Struct.ServerReply.Type) -decode = (Json.Decode.map (internal_decoder) (Struct.Glyph.decoder)) diff --git a/src/roster-editor/src/Comm/AddGlyphBoard.elm b/src/roster-editor/src/Comm/AddGlyphBoard.elm deleted file mode 100644 index 09169d4..0000000 --- a/src/roster-editor/src/Comm/AddGlyphBoard.elm +++ /dev/null @@ -1,24 +0,0 @@ -module Comm.AddGlyphBoard exposing (decode) - --- Elm ------------------------------------------------------------------------- -import Json.Decode - --- Local Module----------------------------------------------------------------- -import Struct.GlyphBoard -import Struct.ServerReply - --------------------------------------------------------------------------------- --- TYPES ----------------------------------------------------------------------- --------------------------------------------------------------------------------- - --------------------------------------------------------------------------------- --- LOCAL ----------------------------------------------------------------------- --------------------------------------------------------------------------------- -internal_decoder : Struct.GlyphBoard.Type -> Struct.ServerReply.Type -internal_decoder glb = (Struct.ServerReply.AddGlyphBoard glb) - --------------------------------------------------------------------------------- --- EXPORTED -------------------------------------------------------------------- --------------------------------------------------------------------------------- -decode : (Json.Decode.Decoder Struct.ServerReply.Type) -decode = (Json.Decode.map (internal_decoder) (Struct.GlyphBoard.decoder)) |