From 71de092a045dc70ab1c9eead477cf1512b144a87 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 12 Jan 2021 23:09:05 -0400
Subject: Raise error when trying to use deprecated fields/method/classes in
 JVM.

---
 .../program/aedifex/artifact/time_stamp/date.lux   | 39 ----------------------
 1 file changed, 39 deletions(-)
 delete mode 100644 stdlib/source/program/aedifex/artifact/time_stamp/date.lux

(limited to 'stdlib/source/program/aedifex/artifact/time_stamp/date.lux')

diff --git a/stdlib/source/program/aedifex/artifact/time_stamp/date.lux b/stdlib/source/program/aedifex/artifact/time_stamp/date.lux
deleted file mode 100644
index 18df2900b..000000000
--- a/stdlib/source/program/aedifex/artifact/time_stamp/date.lux
+++ /dev/null
@@ -1,39 +0,0 @@
-(.module:
-  [lux #*
-   [abstract
-    [monad (#+ do)]]
-   [control
-    ["<>" parser
-     ["<.>" text (#+ Parser)]]]
-   [data
-    [text
-     ["%" format]]]
-   [math
-    [number
-     ["n" nat]]]
-   [time
-    ["." date (#+ Date)]
-    ["." year]
-    ["." month]]])
-
-(def: #export (pad value)
-  (-> Nat Text)
-  (if (n.< 10 value)
-    (%.format "0" (%.nat value))
-    (%.nat value)))
-
-(def: #export (format value)
-  (%.Format Date)
-  (%.format (|> value date.year year.value .nat %.nat)
-            (|> value date.month month.number ..pad)
-            (|> value date.day_of_month ..pad)))
-
-(def: #export parser
-  (Parser Date)
-  (do <>.monad
-    [year (<>.codec n.decimal (<text>.exactly 4 <text>.decimal))
-     year (<>.lift (year.year (.int year)))
-     month (<>.codec n.decimal (<text>.exactly 2 <text>.decimal))
-     month (<>.lift (month.by_number month))
-     day_of_month (<>.codec n.decimal (<text>.exactly 2 <text>.decimal))]
-    (<>.lift (date.date year month day_of_month))))
-- 
cgit v1.2.3