@@ -18,7 +18,7 @@ module Main
1818
1919
2020-------------------------------------------------------------------------------
21−import Control.Monad (unless, forever)
21+import Control.Monad (unless)
2222import qualified Data.Aeson as A
2323import qualified Data.HashMap.Strict as HM
2424import qualified Data.String.Conv as SC
@@ -51,7 +51,7 @@ run mlim = go 0
5151 go n = do
5252 K.katipAddContext (SomeContext 1000) $ do
5353 K.logFM K.InfoS "loop"
54− unless (done n) $ go (n + 1)
54+ unless (done n) $ go (n + 1)
5555 done n = case mlim of
5656 Nothing -> False
5757 Just lim -> n >= lim