From 9705ff0d0673b9c2df8fa08c8aab01d2c40bc8f6 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Wed, 4 Dec 2019 13:52:39 +0100
Subject: Avoid hardcoded paths in extraction

---
 plugins/extraction/haskell.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'plugins/extraction/haskell.ml')

diff --git a/plugins/extraction/haskell.ml b/plugins/extraction/haskell.ml
index f0053ba6b5..bde37bcae7 100644
--- a/plugins/extraction/haskell.ml
+++ b/plugins/extraction/haskell.ml
@@ -109,8 +109,8 @@ let rec pp_type par vl t =
       (try Id.print (List.nth vl (pred i))
        with Failure _ -> (str "a" ++ int i))
     | Tglob (r,[]) -> pp_global Type r
-    | Tglob (GlobRef.IndRef(kn,0),l)
-        when not (keep_singleton ()) && MutInd.equal kn (mk_ind "Coq.Init.Specif" "sig") ->
+    | Tglob (gr,l)
+        when not (keep_singleton ()) && GlobRef.equal gr (sig_type_ref ()) ->
           pp_type true vl (List.hd l)
     | Tglob (r,l) ->
           pp_par par
-- 
cgit v1.2.3