From dc4bbbd97bb9ef1e5be8618d249d69f4f4f89751 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Wed, 28 Oct 2020 18:42:50 +0100
Subject: [PATCH] refactor(schedule-week): split TimeSlot module into types and
 definitions

---
 src/Utils/Schedule/Week/TimeSlot.hs       |  8 ++------
 src/Utils/Schedule/Week/Types/TimeSlot.hs | 12 ++++++++++++
 2 files changed, 14 insertions(+), 6 deletions(-)
 create mode 100644 src/Utils/Schedule/Week/Types/TimeSlot.hs

diff --git a/src/Utils/Schedule/Week/TimeSlot.hs b/src/Utils/Schedule/Week/TimeSlot.hs
index 5b8cc6768..5232b1ac6 100644
--- a/src/Utils/Schedule/Week/TimeSlot.hs
+++ b/src/Utils/Schedule/Week/TimeSlot.hs
@@ -12,17 +12,13 @@ import Import
 
 import Handler.Utils.DateTime (formatTimeRangeW)
 
+import Utils.Schedule.Week.Types.TimeSlot
+
 
 slotStep :: Int
 slotStep = 2
 
 
-data TimeSlot = TimeSlot
-                { tsFrom :: TimeOfDay
-                , tsTo   :: TimeOfDay  -- end excluded
-                }
-                deriving (Eq, Ord, Show, Read, Generic, Typeable)
-
 timeSlot :: Int -> TimeSlot
 timeSlot h = TimeSlot{..} where
   tsFrom   = TimeOfDay  h           0 0
diff --git a/src/Utils/Schedule/Week/Types/TimeSlot.hs b/src/Utils/Schedule/Week/Types/TimeSlot.hs
new file mode 100644
index 000000000..869099903
--- /dev/null
+++ b/src/Utils/Schedule/Week/Types/TimeSlot.hs
@@ -0,0 +1,12 @@
+module Utils.Schedule.Week.Types.TimeSlot
+  ( TimeSlot(..)
+  ) where
+
+import Import.NoModel
+
+
+data TimeSlot = TimeSlot
+                { tsFrom :: TimeOfDay
+                , tsTo   :: TimeOfDay  -- end excluded
+                }
+                deriving (Eq, Ord, Show, Read, Generic, Typeable)