From 03cccc325821b6fff42d2e0a91dd9ce8ec7c3fea Mon Sep 17 00:00:00 2001
From: Paul Steckler <steck@stecksoft.com>
Date: Tue, 5 Sep 2017 17:19:07 -0400
Subject: read flags from project file for Compile Buffer

---
 ide/coqide.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'ide')

diff --git a/ide/coqide.ml b/ide/coqide.ml
index 7b65c9fec..6b24740b3 100644
--- a/ide/coqide.ml
+++ b/ide/coqide.ml
@@ -439,7 +439,9 @@ let compile sn =
   match sn.fileops#filename with
     |None -> flash_info "Active buffer has no name"
     |Some f ->
+      let (_,args) = make_coqtop_args fn in
       let cmd = cmd_coqc#get ^ " -I " ^ (Filename.quote (Filename.dirname f))
+	^ (List.fold_left (fun accum arg -> accum ^ " " ^ arg) "" args)
 	^ " " ^ (Filename.quote f) ^ " 2>&1"
       in
       let buf = Buffer.create 1024 in
-- 
cgit v1.2.3