How ML code looks like with tabs

tabs.sml

fun all_except_option(str, lst) =
	case lst of
		[] => NONE
		| x :: xs =>
			if same_string(str, x)
			then SOME xs
			else case all_except_option(str, xs) of
				NONE => NONE
				| SOME xs' => SOME (x :: xs')

fun get_substitutions1(substitutions, s) =
	case substitutions of
		[] => []
		| lst :: tail => case all_except_option(s, lst) of
			NONE => get_substitutions1(tail, s)
			| SOME lst' => lst' @ get_substitutions1(tail, s)

My:

fun all_except_option(str, lst) =
  case lst of
    [] => NONE
  | x :: xs =>
      if same_string(str, x)
      then SOME xs
      else case all_except_option(str, xs) of
             NONE => NONE
           | SOME xs' => SOME (x :: xs')

fun get_substitutions1(substitutions, s) =
  case substitutions of
    [] => []
  | lst :: tail => case all_except_option(s, lst) of
                     NONE => get_substitutions1(tail, s)
                   | SOME lst' => lst' @ get_substitutions1(tail, s)