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:
parent
5609620f2d
commit
f4f95e1494
@ -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
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
@ -1,4 +1,4 @@
|
|||||||
{-# OPTIONS_GHC -O0 -fasm #-}
|
{-# OPTIONS_GHC -O0 -fasm -fprof-auto #-}
|
||||||
|
|
||||||
module Foundation.Yesod.Middleware
|
module Foundation.Yesod.Middleware
|
||||||
( yesodMiddleware
|
( yesodMiddleware
|
||||||
|
|||||||
@ -1,3 +1,5 @@
|
|||||||
|
{-# OPTIONS_GHC -fprof-auto #-}
|
||||||
|
|
||||||
module Jobs
|
module Jobs
|
||||||
( module Types
|
( module Types
|
||||||
, module Jobs.Queue
|
, module Jobs.Queue
|
||||||
|
|||||||
@ -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"
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user