diff options
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 |