Use pattern match for info_dispatch/1

jj1bdx · May 22, 2018 · 1a94670 · 1a94670
1 parent bec03aa
commit 1a94670
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/aprs_is_decode.erl b/src/aprs_is_decode.erl
@@ -20,11 +20,11 @@ decode_header(D, {CPS, CPI, CPR, CPEND}) ->
     {Source, Destination, Relay, Info}.
 
 info_dispatch(Info) ->
-    case binary:at(Info, 0) of
-        $! -> first_exclamation(Info);
+    <<Type:8, Rest/binary>> = Info,
+    case Type of
+        $! -> first_exclamation(Rest);
         _ -> undefined
     end.
 
-first_exclamation(Info) ->
-    Info,
-    true.
+first_exclamation(Rest) ->
+    Rest.