format

Author: AshleyYakeley

lib/Data/Time/Clock/Internal/DiffTime.hs

@@ -84,21 +84,28 @@ instance RealFrac DiffTime where
 
 pattern Picoseconds :: Integer -> DiffTime
 pattern Picoseconds a <- (diffTimeToPicoseconds -> a)
-    where Picoseconds a = picosecondsToDiffTime a
+    where
+        Picoseconds a = picosecondsToDiffTime a
+
 {-# COMPLETE Picoseconds #-}
 
 pattern Seconds :: Pico -> DiffTime
 pattern Seconds a = MkDiffTime a
+
 {-# COMPLETE Seconds #-}
 
 pattern Minutes :: Pico -> DiffTime
 pattern Minutes a <- Seconds ((/ 60) -> a)
-    where Minutes a = Seconds $ a * 60
+    where
+        Minutes a = Seconds $ a * 60
+
 {-# COMPLETE Minutes #-}
 
 pattern Hours :: Pico -> DiffTime
 pattern Hours a <- Minutes ((/ 60) -> a)
-    where Hours a = Minutes $ a * 60
+    where
+        Hours a = Minutes $ a * 60
+
 {-# COMPLETE Hours #-}
 
 -- | Create a 'DiffTime' which represents an integral number of seconds.

lib/Data/Time/Clock/Internal/NominalDiffTime.hs

@@ -15,12 +15,11 @@ import Data.Fixed
 #ifdef __GLASGOW_HASKELL__
 import GHC.Read
 #endif
+import Data.Time.Clock.Internal.DiffTime
 import Language.Haskell.TH.Syntax qualified as TH
 import Text.ParserCombinators.ReadP
 import Text.ParserCombinators.ReadPrec
 
-import Data.Time.Clock.Internal.DiffTime
-
 -- | This is a length of time, as measured by UTC.
 -- It has a precision of one picosecond (10^-12 s).
 --
@@ -38,8 +37,10 @@ newtype NominalDiffTime
 
 -- | convert from DiffTime
 pattern Nominal :: DiffTime -> NominalDiffTime
-pattern Nominal dt <- MkNominalDiffTime (realToFrac -> dt) where
-    Nominal dt = MkNominalDiffTime $ realToFrac dt
+pattern Nominal dt <- MkNominalDiffTime (realToFrac -> dt)
+    where
+        Nominal dt = MkNominalDiffTime $ realToFrac dt
+
 {-# COMPLETE Nominal #-}
 
 -- | Create a 'NominalDiffTime' from a number of seconds.

lib/Data/Time/LocalTime/Internal/CalendarDiffTime.hs

@@ -7,11 +7,11 @@ module Data.Time.LocalTime.Internal.CalendarDiffTime (
 
 import Control.DeepSeq
 import Data.Data
-import Data.Time.Calendar.Gregorian
 import Data.Time.Calendar.CalendarDiffDays
+import Data.Time.Calendar.Gregorian
 import Data.Time.Clock.Internal.NominalDiffTime
-import Data.Time.Clock.Internal.UTCTime
 import Data.Time.Clock.Internal.UTCDiff
+import Data.Time.Clock.Internal.UTCTime
 import GHC.Generics
 import Language.Haskell.TH.Syntax qualified as TH
 
@@ -54,11 +54,13 @@ addUTCDurationRollOver (CalendarDiffTime m d) (UTCTime day t) =
 diffUTCDurationClip :: UTCTime -> UTCTime -> CalendarDiffTime
 diffUTCDurationClip (UTCTime day1 t1) (UTCTime day2 t2) =
     let
-    CalendarDiffTime m t = calendarTimeDays $ diffGregorianDurationClip day1 day2
-    in CalendarDiffTime m $ t + realToFrac (t1 - t2)
+        CalendarDiffTime m t = calendarTimeDays $ diffGregorianDurationClip day1 day2
+    in
+        CalendarDiffTime m $ t + realToFrac (t1 - t2)
 
 diffUTCDurationRollOver :: UTCTime -> UTCTime -> CalendarDiffTime
 diffUTCDurationRollOver (UTCTime day1 t1) (UTCTime day2 t2) =
     let
-    CalendarDiffTime m t = calendarTimeDays $ diffGregorianDurationRollOver day1 day2
-    in CalendarDiffTime m $ t + realToFrac (t1 - t2)
+        CalendarDiffTime m t = calendarTimeDays $ diffGregorianDurationRollOver day1 day2
+    in
+        CalendarDiffTime m $ t + realToFrac (t1 - t2)

lib/Data/Time/LocalTime/Internal/LocalTime.hs

@@ -27,9 +27,9 @@ import Data.Time.Clock.Internal.NominalDiffTime
 import Data.Time.Clock.Internal.UTCDiff
 import Data.Time.Clock.Internal.UTCTime
 import Data.Time.Clock.Internal.UniversalTime
+import Data.Time.LocalTime.Internal.CalendarDiffTime
 import Data.Time.LocalTime.Internal.TimeOfDay
 import Data.Time.LocalTime.Internal.TimeZone
-import Data.Time.LocalTime.Internal.CalendarDiffTime
 import GHC.Generics
 import Language.Haskell.TH.Syntax qualified as TH
 
@@ -98,11 +98,13 @@ addLocalDurationRollOver (CalendarDiffTime m d) (LocalTime day t) =
 diffLocalDurationClip :: LocalTime -> LocalTime -> CalendarDiffTime
 diffLocalDurationClip (LocalTime day1 t1) (LocalTime day2 t2) =
     let
-    CalendarDiffTime m t = calendarTimeDays $ diffGregorianDurationClip day1 day2
-    in CalendarDiffTime m $ t + diffTimeOfDay t1 t2
+        CalendarDiffTime m t = calendarTimeDays $ diffGregorianDurationClip day1 day2
+    in
+        CalendarDiffTime m $ t + diffTimeOfDay t1 t2
 
 diffLocalDurationRollOver :: LocalTime -> LocalTime -> CalendarDiffTime
 diffLocalDurationRollOver (LocalTime day1 t1) (LocalTime day2 t2) =
     let
-    CalendarDiffTime m t = calendarTimeDays $ diffGregorianDurationRollOver day1 day2
-    in CalendarDiffTime m $ t + diffTimeOfDay t1 t2
+        CalendarDiffTime m t = calendarTimeDays $ diffGregorianDurationRollOver day1 day2
+    in
+        CalendarDiffTime m $ t + diffTimeOfDay t1 t2

test/main/Test/Clock/Pattern.hs

@@ -1,5 +1,5 @@
 module Test.Clock.Pattern (
-    testClockPatterns
+    testClockPatterns,
 ) where
 
 import Data.Time.Clock
@@ -12,16 +12,17 @@ testClockPatterns =
         testSame :: forall a. (Eq a, Show a) => TestName -> a -> a -> TestTree
         testSame name expected found = testCase name $ assertEqual "" expected found
     in
-    testGroup "pattern" $
-            [
-            testGroup "construct"
+        testGroup "pattern" $
+            [ testGroup
+                "construct"
                 [ testSame "Seconds" 52.4 (Seconds 52.4)
                 , testSame "Seconds-Picoseconds" (Picoseconds 7_276_000_000_000) (Seconds 7.276)
                 , testSame "Minutes-Seconds" (Seconds 210) (Minutes 3.5)
                 , testSame "Hours-Minutes" (Minutes 120) (Hours 2)
                 , testSame "Nominal" 37.4 (Nominal 37.4)
-                ],
-            testGroup "deconstruct"
+                ]
+            , testGroup
+                "deconstruct"
                 [ testSame "Seconds" 52.4 ((\(Seconds x) -> x) 52.4)
                 , testSame "Seconds-Picoseconds" 7.276 ((\(Seconds x) -> x) $ Picoseconds 7_276_000_000_000)
                 , testSame "Minutes-Seconds" 3.5 ((\(Minutes x) -> x) $ Seconds 210)

test/unix/Test/Format/Format.hs

@@ -153,7 +153,7 @@ unixWorkarounds _ s = s
 lastM :: [a] -> Maybe a
 lastM [] = Nothing
 lastM [a] = Just a
-lastM (_:aa) = lastM aa
+lastM (_ : aa) = lastM aa
 
 compareFormat :: (String -> String) -> String -> TimeZone -> UTCTime -> Result
 compareFormat _modUnix fmt zone _time