Fix export with relative line

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/stitched_article.ml b/lib/stitched_article.ml
index deedb43..86a22e9 100644
--- a/lib/stitched_article.ml
+++ b/lib/stitched_article.ml
@@ -95,13 +95,13 @@ let rec render
                   (Array.to_list content_pretty
                    |> List.map (fun (_, b) -> Grep.display_type_line b))
               in
-              Export.to_path path ~content:export;
-              render t { state with output = Some ("Export written to: " ^ path ) })
+              let result = Export.to_path path ~content:export in
+              render t { state with output = Some result })
             else render t { state with output = Some "Export Blank; skipping" })
       ; on_cancel =
           (fun _ ->
             Common.Term.cursor t None;
-            render t {state with output = Some "Export Cancelled"})
+            render t { state with output = Some "Export Cancelled" })
       }
     in
     Input_prompt.render t input_state