refactor(schedule-week): split TimeSlot module into types and definitions

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

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)