Add strictness annotations to a few types

src/Arguments.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE StrictData #-}
 module Arguments (Arguments(..), CmdLineOptions(..), DiffMode(..), ExtraArg(..), programArguments, args) where
 
 import Data.Functor.Both

src/Category.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE StrictData #-}
 module Category where
 
 import Prologue

src/Data/Functor/Both.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE StrictData #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 module Data.Functor.Both (Both,both, runBothWith, fst, snd, module X) where
 

src/DiffSummary.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DataKinds, TypeFamilies, ScopedTypeVariables, DeriveAnyClass #-}
+{-# LANGUAGE DataKinds, TypeFamilies, ScopedTypeVariables, DeriveAnyClass, StrictData #-}
 
 module DiffSummary (diffSummaries, DiffSummary(..), DiffInfo(..), diffToDiffSummaries, isBranchInfo, isErrorSummary, JSONSummary(..)) where
 

src/Language.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DataKinds, StrictData #-}
 module Language where
 
 import Data.Record

src/Patch.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE StrictData #-}
 module Patch
 ( Patch(..)
 , replacing

src/Range.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE StrictData #-}
 module Range where
 
 import qualified Data.Char as Char

src/Renderer.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE StrictData #-}
 module Renderer (Renderer, DiffArguments(..), Output(..), concatOutputs, toSummaryKey, Format(..)) where
 
 import Data.Aeson (Value, toEncoding)

src/SES.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE Strict #-}
 module SES where
 
 import qualified Data.Map as Map

src/Source.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving, StrictData #-}
 module Source where
 
 import Prologue hiding (uncons)

src/SourceSpan.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveAnyClass, StrictData #-}
 -- |
 -- Source position and span information
 -- Mostly taken from purescript's SourcePos definition.
@@ -19,11 +19,11 @@ data SourcePos = SourcePos
   { -- |
     -- Line number
     --
-    line :: !Int
+    line :: Int
     -- |
     -- Column number
     --
-  , column :: !Int
+  , column :: Int
   } deriving (Show, Read, Eq, Ord, Generic, Hashable)
 
 displaySourcePos :: SourcePos -> Text
@@ -43,10 +43,10 @@ data SourceSpan = SourceSpan
   { -- |
     -- Start of the span
     --
-   spanStart :: !SourcePos
+   spanStart :: SourcePos
     -- End of the span
     --
-  , spanEnd :: !SourcePos
+  , spanEnd :: SourcePos
   } deriving (Show, Read, Eq, Ord, Generic, Hashable)
 
 displayStartEndPos :: SourceSpan -> Text