summaryrefslogtreecommitdiff
path: root/Biz/Log.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Biz/Log.hs')
-rw-r--r--Biz/Log.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Biz/Log.hs b/Biz/Log.hs
index 8dba657..5c82c28 100644
--- a/Biz/Log.hs
+++ b/Biz/Log.hs
@@ -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