Remove more unused code

mdgriffith · May 11, 2024 · d8a32b5 · d8a32b5
1 parent 9e39456
commit d8a32b5
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 22 deletions.
diff --git a/src/Elm/Case.elm b/src/Elm/Case.elm
@@ -72,7 +72,6 @@ import Elm.Syntax.TypeAnnotation as Annotation
 import Internal.Arg
 import Internal.Branch as Branch exposing (Branch, Pattern(..))
 import Internal.Compiler as Compiler
-import Internal.Format as Format
 import Internal.Index as Index
 
 

diff --git a/src/Internal/Branch.elm b/src/Internal/Branch.elm
@@ -1,4 +1,4 @@
-module Internal.Branch exposing (Branch, Pattern(..), map, pattern)
+module Internal.Branch exposing (Branch, Pattern(..))
 
 import Elm exposing (Expression)
 import Elm.Syntax.Pattern
@@ -12,23 +12,3 @@ type alias Branch =
 
 type Pattern a
     = Branch (Index.Index -> ( Index.Index, Elm.Syntax.Pattern.Pattern, a ))
-
-
-pattern : Elm.Syntax.Pattern.Pattern -> a -> Pattern a
-pattern patt val =
-    Branch
-        (\index ->
-            ( index, patt, val )
-        )
-
-
-map : (a -> b) -> Pattern a -> Pattern b
-map fn (Branch branch) =
-    Branch
-        (\index ->
-            let
-                ( newIndex, patt, val ) =
-                    branch index
-            in
-            ( newIndex, patt, fn val )
-        )