git.iko.soy/typeable/katip
on master help sign in
Fix examples
e8530a9Michael Xavier
katip/examples/add_context_loop.hs+2−2
compare with master
unifiedsplit
@@ -18,7 +18,7 @@ module Main
18
18
19
19
20-------------------------------------------------------------------------------
20-------------------------------------------------------------------------------
21−import Control.Monad (unless, forever)
21+import Control.Monad (unless)
22import qualified Data.Aeson as A
22import qualified Data.Aeson as A
23import qualified Data.HashMap.Strict as HM
23import qualified Data.HashMap.Strict as HM
24import qualified Data.String.Conv as SC
24import qualified Data.String.Conv as SC
@@ -51,7 +51,7 @@ run mlim = go 0
51 go n = do
51 go n = do
52 K.katipAddContext (SomeContext 1000) $ do
52 K.katipAddContext (SomeContext 1000) $ do
53 K.logFM K.InfoS "loop"
53 K.logFM K.InfoS "loop"
54− unless (done n) $ go (n + 1)
54+ unless (done n) $ go (n + 1)
55 done n = case mlim of
55 done n = case mlim of
56 Nothing -> False
56 Nothing -> False
57 Just lim -> n >= lim
57 Just lim -> n >= lim