chore(debug): enable profiling properly
This commit is contained in:
parent
dfd0f57f90
commit
791220fb02
@ -256,8 +256,7 @@ ghc-options:
|
|||||||
- -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:
|
||||||
|
|||||||
@ -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"
|
||||||
|
|
||||||
|
|||||||
@ -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: []
|
||||||
|
|||||||
Reference in New Issue
Block a user