| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/battle/src/Comm/SetMap.elm | 2 | ||||
| -rw-r--r-- | src/map-editor/src/Comm/SendMapUpdate.elm | 8 | ||||
| -rw-r--r-- | src/map-editor/src/Comm/SetMap.elm | 2 |
3 files changed, 5 insertions, 7 deletions
diff --git a/src/battle/src/Comm/SetMap.elm b/src/battle/src/Comm/SetMap.elm index af930f2..d26ca74 100644 --- a/src/battle/src/Comm/SetMap.elm +++ b/src/battle/src/Comm/SetMap.elm @@ -30,7 +30,7 @@ deserialize_tile_borders : ( ) deserialize_tile_borders rem_ints current_borders = case rem_ints of - [] -> current_borders + [] -> (List.reverse current_borders) (a :: (b :: c)) -> (deserialize_tile_borders c diff --git a/src/map-editor/src/Comm/SendMapUpdate.elm b/src/map-editor/src/Comm/SendMapUpdate.elm index 27a5747..d47cee2 100644 --- a/src/map-editor/src/Comm/SendMapUpdate.elm +++ b/src/map-editor/src/Comm/SendMapUpdate.elm @@ -38,11 +38,9 @@ encode_tile_instance tile_inst = (Json.Encode.int (Struct.Tile.get_variant_ix tile_inst)) ] ++ - (List.concat - (List.map - (encode_tile_border_values) - (Struct.Tile.get_borders tile_inst) - ) + (List.concatMap + (encode_tile_border_values) + (Struct.Tile.get_borders tile_inst) ) ) ) diff --git a/src/map-editor/src/Comm/SetMap.elm b/src/map-editor/src/Comm/SetMap.elm index 7a83320..36ddade 100644 --- a/src/map-editor/src/Comm/SetMap.elm +++ b/src/map-editor/src/Comm/SetMap.elm @@ -30,7 +30,7 @@ deserialize_tile_borders : ( ) deserialize_tile_borders rem_ints current_borders = case rem_ints of - [] -> current_borders + [] -> (List.reverse current_borders) (a :: (b :: c)) -> (deserialize_tile_borders c |