 
   defp extract_header(device, lines, true) do
     case IO.read device, :line do
-      "===\n" ->
+      "---\n" ->
         {:ok, lines}
       line when is_binary(line) ->
         extract_header device, [line|lines], true


  defp do_skip_header(device, false) do
    case IO.read device, :line do
      "===\n" -> do_skip_header device, true
      :eof -> device
      _ -> do_skip_header device, false
    end


  defp extract_header(device, lines, false) do
    case IO.read device, :line do
      "---\n" ->
        extract_header device, lines, true
      line when is_binary(line) ->
        extract_header device, lines, false
