From d48cafebb277e4ad4b31e883cbe4f55eef9ea4a4 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 29 May 2021 19:24:41 +0200
Subject: Rewrite in TypeScript

---
 src/Order.purs | 54 ------------------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 src/Order.purs

(limited to 'src/Order.purs')

diff --git a/src/Order.purs b/src/Order.purs
deleted file mode 100644
index 33c2be9..0000000
--- a/src/Order.purs
+++ /dev/null
@@ -1,54 +0,0 @@
-module Order
-  ( Order
-  , OrderKind(..)
-  , OrderDirection(..)
-  , init
-  , select
-  ) where
-
-import Prelude (class Eq, (==))
-import Data.Generic (class Generic, gEq)
-
-type Order =
-  { kind :: OrderKind
-  , direction :: OrderDirection
-  }
-
-data OrderKind =
-  Name
-  | GlycemicIndex
-  | Carbohydrates
-  | GlycemicLoad
-
-derive instance genericOrderKind :: Generic OrderKind
-
-instance eqOrderKind :: Eq OrderKind where
-  eq = gEq
-
-data OrderDirection =
-  Ascending
-  | Descending
-
-derive instance genericOrderDirection :: Generic OrderDirection
-
-instance eqOrderDirection :: Eq OrderDirection where
-  eq = gEq
-
-init :: Order
-init =
-  { kind: Name
-  , direction: initDirection
-  }
-
-select :: OrderKind -> Order -> Order
-select kind order =
-  if order.kind == kind
-    then order { direction = otherDirection order.direction }
-    else order { kind = kind, direction = initDirection }
-
-otherDirection :: OrderDirection -> OrderDirection
-otherDirection Ascending = Descending
-otherDirection Descending = Ascending
-
-initDirection :: OrderDirection
-initDirection = Ascending
-- 
cgit v1.2.3