runNormally :: IO ()
runNormally = do
    logLock <- newMVar ()
    let log' = Main.log logLock
    (store,nextPage) <- buildNextPage
    items_counter <- createCounter "items_counter" store
    let processResult =
            \x -> do
                r <- timeItem log' "nextPage" (nextPage) x
                return
                    (\c ->
                          actionResult c r)
    mainThreadId <- myThreadId
    findAllItems
        mainThreadId
        log'
        (Just "logs/2016-01-01", Just "m")
        processResult $
        P.map s3ObjectKey >->
        P.tee
            (P.mapM_ $
             \_ ->
                  Counter.inc items_counter) >->
        P.map
            (\t ->
                  "File: " ++ T.unpack t) >->
        P.stdoutLn
runNormally :: IO ()
runNormally = do
    logLock <- newMVar ()
    let log' = Main.log logLock
    (store,nextPage) <- buildNextPage
    items_counter <- createCounter "items_counter" store
    let processResult =
            \x -> do
                r <- timeItem log' "nextPage" (nextPage) x
                return
                    (\c ->
                          actionResult c r)
    mainThreadId <- myThreadId
    findAllItems
        mainThreadId
        log'
        (Just "logs/2016-01-01", Just "m")
        processResult $
        P.map s3ObjectKey >->
        P.tee
            (P.mapM_ $
             \_ ->
                  Counter.inc items_counter) >->
        P.map
            (\t ->
                  "File: " ++ T.unpack t) >->
        P.stdoutLn
runNormally = do
    logLock <- newMVar ()
    let log' = Main.log logLock
    (store,nextPage) <- buildNextPage
    items_counter <- createCounter "items_counter" store
    let processResult =
            \x -> do
                r <- timeItem log' "nextPage" (nextPage) x
                return
                    (\c ->
                          actionResult c r)
    mainThreadId <- myThreadId
    findAllItems
        mainThreadId
        log'
        (Just "logs/2016-01-01", Just "m")
        processResult $
        P.map s3ObjectKey >->
        P.tee
            (P.mapM_ $
             \_ ->
                  Counter.inc items_counter) >->
        P.map
            (\t ->
                  "File: " ++ T.unpack t) >->
        P.stdoutLn