Remove naïve strictness annotations

Anecdotally, this actually _helps_ speed??
lfborjas · Dec 27, 2020 · 3c4de06 · 3c4de06
1 parent 8a22d95
commit 3c4de06
Showing 1 changed file with 15 additions and 15 deletions.
diff --git a/src/Ephemeris/Types.hs b/src/Ephemeris/Types.hs
@@ -274,25 +274,25 @@ data HoroscopeData = HoroscopeData
 
 data TransitData = TransitData
   {
-    natalPlanetPositions :: ![PlanetPosition]
-  , natalAngles :: !Angles
-  , natalHouses :: ![House]
-  , natalHouseSystem :: !HouseSystem
-  , transitingPlanetPositions :: ![PlanetPosition]
-  , transitingHouses :: ![House]
-  , transitingAngles :: !Angles
-  , transitingHouseSystem :: !HouseSystem
-  , planetaryTransits :: ![(PlanetaryAspect, PlanetaryTransit)]
-  , angleTransits :: ![(AngleAspect, AngleTransit)]
+    natalPlanetPositions :: [PlanetPosition]
+  , natalAngles :: Angles
+  , natalHouses :: [House]
+  , natalHouseSystem :: HouseSystem
+  , transitingPlanetPositions :: [PlanetPosition]
+  , transitingHouses :: [House]
+  , transitingAngles :: Angles
+  , transitingHouseSystem :: HouseSystem
+  , planetaryTransits :: [(PlanetaryAspect, PlanetaryTransit)]
+  , angleTransits :: [(AngleAspect, AngleTransit)]
   } deriving (Eq, Show)
 
 data Transit a = Transit
   {
-    transiting :: !PlanetPosition
-  , transited :: !a
-  , transitStarts :: !(Maybe UTCTime)
-  , transitEnds :: !(Maybe UTCTime)
-  , immediateTriggers :: ![UTCTime]
+    transiting :: PlanetPosition
+  , transited :: a
+  , transitStarts :: (Maybe UTCTime)
+  , transitEnds :: (Maybe UTCTime)
+  , immediateTriggers :: [UTCTime]
   } deriving stock (Eq, Show)
 
 type PlanetaryTransit = Transit PlanetPosition