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)