diff options
| author | Ben Sima <ben@bsima.me> | 2024-05-03 22:34:10 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2024-05-09 21:38:52 -0400 |
| commit | d71c6f8c5955e8a9861e3f3957b293a369aac954 (patch) | |
| tree | da77bbbec8e082a77c0d553cf2216dce9b4ced0b /Biz/Log.hs | |
| parent | d36b4360c9c359e6eea480b39e9699b1deae70f1 (diff) | |
Switch to nixpkgs-23.11, ghc 9.6.3
This brings a bunch of improvements. I got rid of some custom packages, I can
now build exllama without using a non-default cuda version. Oh yeah and I get to
use GHC 9.6.2 now, a huge upgrade from 9.4. Unfortunately I also updated ormolu
and some unrelated formatting changed, but that's life I guess.
Diffstat (limited to 'Biz/Log.hs')
| -rw-r--r-- | Biz/Log.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -102,7 +102,7 @@ warn = msg Warn fail = msg Fail -- | Like 'Debug.trace' but follows the patterns in this module -mark :: Show a => Text -> a -> a +mark :: (Show a) => Text -> a -> a mark label val = unsafePerformIO <| do msg Mark [label, tshow val] @@ -114,11 +114,11 @@ mark label val = -- @ -- mark label val = val ~& label -- @ -(~&) :: Show a => a -> Text -> a +(~&) :: (Show a) => a -> Text -> a val ~& label = mark label val -- | Conditional mark. -(~?) :: Show a => a -> (a -> Bool) -> Text -> a +(~?) :: (Show a) => a -> (a -> Bool) -> Text -> a (~?) val test label = if test val then mark label val else val wai :: Wai.Middleware |