chore(profiling): restore prof-auto and test build

Revert "chore(profiling): switch to prof-auto-top to hopefully fix build"

This reverts commit 07bde5b012.
This commit is contained in:
Gregor Kleen 2021-02-03 09:06:55 +01:00
parent 5609620f2d
commit f4f95e1494
5 changed files with 6 additions and 2 deletions

View File

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

View File

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

View File

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

View File

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

View File

@ -28,6 +28,7 @@ fromPersistValueJSON = \case
PersistText text -> decodeBS $ Text.encodeUtf8 text PersistText text -> decodeBS $ Text.encodeUtf8 text
x -> Left $ fromPersistValueErrorSql (Proxy @a) x x -> Left $ fromPersistValueErrorSql (Proxy @a) x
where decodeBS = first pack . JSON.eitherDecodeStrict' where decodeBS = first pack . JSON.eitherDecodeStrict'
{-# SCC fromPersistValueJSON #-}
sqlTypeJSON :: SqlType sqlTypeJSON :: SqlType
sqlTypeJSON = SqlOther "jsonb" sqlTypeJSON = SqlOther "jsonb"