From 8458615318b2b67a38e356d68926a0838b908fe6 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Wed, 11 Jul 2018 04:14:59 -0400 Subject: Add Extract Inlined Constant directives for {String,Ascii}.eqb --- plugins/extraction/ExtrHaskellString.v | 2 ++ 1 file changed, 2 insertions(+) (limited to 'plugins/extraction/ExtrHaskellString.v') diff --git a/plugins/extraction/ExtrHaskellString.v b/plugins/extraction/ExtrHaskellString.v index ac1f6f9130..a4a40d3c5a 100644 --- a/plugins/extraction/ExtrHaskellString.v +++ b/plugins/extraction/ExtrHaskellString.v @@ -35,6 +35,8 @@ Extract Inductive ascii => "Prelude.Char" (Data.Bits.testBit (Data.Char.ord a) 6) (Data.Bits.testBit (Data.Char.ord a) 7))". Extract Inlined Constant Ascii.ascii_dec => "(Prelude.==)". +Extract Inlined Constant Ascii.eqb => "(Prelude.==)". Extract Inductive string => "Prelude.String" [ "([])" "(:)" ]. Extract Inlined Constant String.string_dec => "(Prelude.==)". +Extract Inlined Constant String.eqb => "(Prelude.==)". -- cgit v1.2.3