From 19ca8f80e7e35e8f6c41c99bd311b3c7df2033e2 Mon Sep 17 00:00:00 2001
From: Nickolai Zeldovich
Date: Sun, 5 Apr 2015 01:14:42 -0400
Subject: add ExtrHaskellBasic.v to mirror ExtrOcamlBasic.v

---
 plugins/extraction/ExtrHaskellBasic.v | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 plugins/extraction/ExtrHaskellBasic.v

(limited to 'plugins/extraction/ExtrHaskellBasic.v')

diff --git a/plugins/extraction/ExtrHaskellBasic.v b/plugins/extraction/ExtrHaskellBasic.v
new file mode 100644
index 0000000000..294d61023b
--- /dev/null
+++ b/plugins/extraction/ExtrHaskellBasic.v
@@ -0,0 +1,15 @@
+(** Extraction to Haskell : use of basic Haskell types *)
+
+Extract Inductive bool => "Prelude.Bool" [ "Prelude.True" "Prelude.False" ].
+Extract Inductive option => "Prelude.Maybe" [ "Prelude.Just" "Prelude.Nothing" ].
+Extract Inductive unit => "()" [ "()" ].
+Extract Inductive list => "([])" [ "([])" "(:)" ].
+Extract Inductive prod => "(,)" [ "(,)" ].
+
+Extract Inductive sumbool => "Prelude.Bool" [ "Prelude.True" "Prelude.False" ].
+Extract Inductive sumor => "Prelude.Maybe" [ "Prelude.Just" "Prelude.Nothing" ].
+Extract Inductive sum => "Prelude.Either" [ "Prelude.Left" "Prelude.Right" ].
+
+Extract Inlined Constant andb => "(Prelude.&&)".
+Extract Inlined Constant orb => "(Prelude.||)".
+Extract Inlined Constant negb => "Prelude.not".
-- 
cgit v1.2.3