chore: setup for profiling

package.yaml

@@ -247,8 +247,6 @@ when:
         - -ddump-splices
         - -ddump-to-file
       cpp-options: -DDEVELOPMENT
-      ghc-prof-options:
-        - -fprof-auto
     else:
       ghc-options:
         - -O -fllvm

src/Foundation/Authorization.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE UndecidableInstances #-}
-{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}
+{-# OPTIONS_GHC -fno-warn-redundant-constraints -fprof-auto #-}
 
 module Foundation.Authorization
   ( evalAccess, evalAccessFor, evalAccessWith

src/Foundation/SiteLayout.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE UndecidableInstances #-} -- for `MemcachedKeyFavourites`
+{-# OPTIONS_GHC -fprof-auto #-}
 
 module Foundation.SiteLayout
   ( siteLayout', siteLayout

src/Foundation/Yesod/Middleware.hs

@@ -1,4 +1,4 @@
-{-# OPTIONS_GHC -O0 -fasm #-}
+{-# OPTIONS_GHC -O0 -fasm -fprof-auto #-}
 
 module Foundation.Yesod.Middleware
   ( yesodMiddleware

src/Jobs.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -fprof-auto #-}
+
 module Jobs
   ( module Types
   , module Jobs.Queue

src/Model/Types/TH/JSON.hs

@@ -25,6 +25,7 @@ fromPersistValueJSON = \case
   PersistText       text -> decodeBS $ Text.encodeUtf8 text
   _other                 -> Left "JSON values must be converted from PersistDbSpecific, PersistText, or PersistByteString"
   where decodeBS = first pack . JSON.eitherDecodeStrict'
+{-# SCC fromPersistValueJSON #-}
 
 sqlTypeJSON :: SqlType
 sqlTypeJSON = SqlOther "jsonb"

stack.yaml

@@ -2,6 +2,10 @@ flags:
   aeson:
     cffi: true
 
+rebuild-ghc-options: true
+ghc-options:
+  "$everything": -fno-prof-auto
+
 nix:
   packages: []
   pure: false