From 8fcabd505e39b718336e57d104a84407bf6bf274 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Fri, 2 Sep 2022 00:18:18 +0200
Subject: reasonable delay forecasts

---
 lib/GTFS.hs | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

(limited to 'lib/GTFS.hs')

diff --git a/lib/GTFS.hs b/lib/GTFS.hs
index f5c2018..4e2a7dc 100644
--- a/lib/GTFS.hs
+++ b/lib/GTFS.hs
@@ -1,19 +1,19 @@
-{-# LANGUAGE DataKinds                #-}
-{-# LANGUAGE DeriveAnyClass           #-}
-{-# LANGUAGE DeriveGeneric            #-}
-{-# LANGUAGE DerivingStrategies       #-}
-{-# LANGUAGE FlexibleContexts         #-}
-{-# LANGUAGE FlexibleInstances        #-}
-{-# LANGUAGE LambdaCase               #-}
-{-# LANGUAGE NamedFieldPuns           #-}
-{-# LANGUAGE RecordWildCards          #-}
-{-# LANGUAGE StandaloneDeriving       #-}
-{-# LANGUAGE StandaloneKindSignatures #-}
-{-# LANGUAGE TupleSections            #-}
-{-# LANGUAGE TypeApplications         #-}
-{-# LANGUAGE TypeFamilies             #-}
-{-# LANGUAGE UndecidableInstances     #-}
+{-# LANGUAGE DataKinds                  #-}
+{-# LANGUAGE DeriveAnyClass             #-}
+{-# LANGUAGE DeriveGeneric              #-}
+{-# LANGUAGE DerivingStrategies         #-}
+{-# LANGUAGE FlexibleContexts           #-}
+{-# LANGUAGE FlexibleInstances          #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE LambdaCase                 #-}
+{-# LANGUAGE NamedFieldPuns             #-}
+{-# LANGUAGE RecordWildCards            #-}
+{-# LANGUAGE StandaloneDeriving         #-}
+{-# LANGUAGE StandaloneKindSignatures   #-}
+{-# LANGUAGE TupleSections              #-}
+{-# LANGUAGE TypeApplications           #-}
+{-# LANGUAGE TypeFamilies               #-}
+{-# LANGUAGE UndecidableInstances       #-}
 
 -- | All kinds of stuff that has to deal with GTFS directly
 -- (i.e. parsing, querying, Aeson instances, etc.)
@@ -37,8 +37,8 @@ import           Data.Kind                           (Type)
 import           Data.Maybe                          (fromJust, fromMaybe)
 import           Data.Text                           (Text)
 import           Data.Time                           (TimeZone (timeZoneMinutes),
-                                                      UTCTime (..),
-                                                      dayOfWeek, getCurrentTime)
+                                                      UTCTime (..), dayOfWeek,
+                                                      getCurrentTime)
 import           Data.Time.Calendar                  (Day, DayOfWeek (..))
 import           Data.Time.Calendar.MonthDay         (monthAndDayToDayOfYearValid)
 import qualified Data.Time.Calendar.OrdinalDate      as Day
@@ -71,7 +71,7 @@ import qualified Data.Text                           as T
 import           Data.Time.LocalTime.TimeZone.Olson  (getTimeZoneSeriesFromOlsonFile)
 import           Data.Time.LocalTime.TimeZone.Series (TimeZoneSeries,
                                                       timeZoneFromSeries)
-import GHC.Float (int2Double)
+import           GHC.Float                           (int2Double)
 
 
 -- | for some reason this doesn't exist already in cassava
-- 
cgit v1.2.3