2024-05-09 19:15:37 +00:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
|
|
|
|
|
|
module ZenScan where
|
|
|
|
|
|
|
|
|
|
import Control.Monad.Logger (runNoLoggingT)
|
|
|
|
|
import Data.Configurator
|
2024-11-21 15:39:18 +00:00
|
|
|
import Zenith.Scanner (rescanZebra)
|
2024-05-09 19:15:37 +00:00
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
|
|
|
|
config <- load ["zenith.cfg"]
|
|
|
|
|
dbFilePath <- require config "dbFilePath"
|
|
|
|
|
zebraPort <- require config "zebraPort"
|
|
|
|
|
zebraHost <- require config "zebraHost"
|
|
|
|
|
runNoLoggingT $ scanZebra 2762066 zebraHost zebraPort dbFilePath
|
