diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-23 14:04:23 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-23 14:04:23 -0500 |
| commit | 527e025e88fc01c7ed4fc3f951484b051c264d83 (patch) | |
| tree | 825a8751d30725e299ac363698a7a5f86d5ac535 /lib/headlines.ml | |
| parent | eed9e36b661009e5bcf1c4f5ec3a9279bbb7cda5 (diff) | |
| download | stitch-527e025e88fc01c7ed4fc3f951484b051c264d83.tar.gz stitch-527e025e88fc01c7ed4fc3f951484b051c264d83.tar.bz2 stitch-527e025e88fc01c7ed4fc3f951484b051c264d83.zip | |
Fix export with relative line
Diffstat (limited to '')
| -rw-r--r-- | lib/headlines.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/headlines.ml b/lib/headlines.ml index 5c740ed..cefe31d 100644 --- a/lib/headlines.ml +++ b/lib/headlines.ml @@ -118,8 +118,8 @@ let rec render if String.equal (String.trim path) String.empty |> not then ( let export = String.concat "\n" (Array.to_list content_pretty) 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 _ -> |