Rene Vergara
de211d03b0
Reviewed-on: https://git.vergara.tech/Vergara_Tech/zenith/pulls/71 Co-authored-by: Rene Vergara <rene@vergara.network> Co-committed-by: Rene Vergara <rene@vergara.network>
15 lines
407 B
Haskell
15 lines
407 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module ZenScan where
|
|
|
|
import Data.Configurator
|
|
import Zenith.Scanner (scanZebra)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
config <- load ["zenith.cfg"]
|
|
dbFilePath <- require config "dbFilePath"
|
|
{-dataStorePath <- require config "dataStorePath"-}
|
|
zebraPort <- require config "zebraPort"
|
|
zebraHost <- require config "zebraHost"
|
|
scanZebra 2764500 zebraHost zebraPort dbFilePath
|