From 03d0d21c0eadaee1e9985a29224500458d099981 Mon Sep 17 00:00:00 2001
From: Joscha <brummer@migejolise.de>
Date: Fri, 5 Jan 2018 18:41:29 +0000
Subject: [PATCH] Clean up unused stuff

---
 src/Cards.hs | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/src/Cards.hs b/src/Cards.hs
index 02e08c2..5783084 100644
--- a/src/Cards.hs
+++ b/src/Cards.hs
@@ -21,7 +21,6 @@ module Cards
   , tierDiff
   , tierName
   , Parser -- Other stuff
-  , testElements
   ) where
 
 import           Control.Applicative
@@ -77,21 +76,6 @@ data Tier = Unrevised
           | SixteenDays | ThirtyTwoDays | SixtyFourDays
   deriving (Show, Eq, Ord, Enum, Bounded)
 
--- | A 'Elements' containing some cards and some comments, for testing.
---
--- To be removed.
-testElements :: Elements
-testElements = Elements . Map.fromList. zip [1..] $
-  [ ca ["first card", "really"]
-  , ca ["second card", "really"]
-  , co "first comment"
-  , ca ["third card", "really"]
-  , co "second comment"
-  ]
-  where ca = ECard . createCard someutctime
-        co = EComment
-        someutctime = UTCTime (ModifiedJulianDay 0) (secondsToDiffTime 0)
-
 {-
  - Elements stuff
  -}