on master help sign in
Handle case where there are no tests to be done
1158a97Evan Czaplicki
src/Optimize/Patterns/DecisionTree.hs+3
@@ -159,6 +159,9 @@ toDecisionTree variantDict rawBranches =
159 (_, []) ->
159 (_, []) ->
160 Decision path decisionEdges Nothing
160 Decision path decisionEdges Nothing
161
161
162+ ([], _ : _) ->
163+ toDecisionTree variantDict fallback
164+
162 (_, _) ->
165 (_, _) ->
163 Decision path decisionEdges (Just (toDecisionTree variantDict fallback))
166 Decision path decisionEdges (Just (toDecisionTree variantDict fallback))
164
167