chore(debug): enable profiling properly

This commit is contained in:
Steffen Jost 2023-04-20 14:58:01 +02:00
parent dfd0f57f90
commit 791220fb02
3 changed files with 7 additions and 6 deletions

View File

@ -255,9 +255,8 @@ ghc-options:
- -fno-warn-partial-type-signatures - -fno-warn-partial-type-signatures
- -fno-max-relevant-binds - -fno-max-relevant-binds
- -j - -j
- -freduction-depth=0 - -freduction-depth=0
- -prof - -fprof-auto-calls
- -fprof-auto-call
when: when:
- condition: flag(pedantic) - condition: flag(pedantic)
ghc-options: ghc-options:

View File

@ -14,6 +14,7 @@ import Utils.Print
import Handler.Utils import Handler.Utils
import Jobs import Jobs
import Data.Ratio ((%))
import Data.Char (isDigit) import Data.Char (isDigit)
import qualified Data.Text as Text import qualified Data.Text as Text
-- import qualified Data.Text.IO as Text -- import qualified Data.Text.IO as Text
@ -97,7 +98,7 @@ postAdminTestR = do
case btnResult of case btnResult of
(FormSuccess CreateInf) -> addMessage Info "Informatik-Knopf gedrückt" (FormSuccess CreateInf) -> addMessage Info "Informatik-Knopf gedrückt"
(FormSuccess CreateMath) -> addMessage Warning "Knopf Mathematik erkannt" (FormSuccess CreateMath) -> addMessage Warning "Knopf Mathematik erkannt"
(FormSuccess CrashApp) -> addMessage Error "Crash Button betätigt" >> error "Crash Button" (FormSuccess CrashApp) -> addMessage Error "Crash Button Ratio 0 betätigt" >> error ("Crash Button" <> (show $ 1 % 0))
FormMissing -> return () FormMissing -> return ()
_other -> addMessage Warning "KEIN Knopf erkannt" _other -> addMessage Warning "KEIN Knopf erkannt"

View File

@ -10,8 +10,9 @@ rebuild-ghc-options: true
#ghc-options: #ghc-options:
# "$everything": -fno-prof-auto # "$everything": -fno-prof-auto
library-profiling: true build:
executable-profiling: true library-profiling: true
executable-profiling: true
nix: nix:
packages: [] packages: []