loadEntries :: FilePath -> IO TaskInput
loadEntries filePath = do
  pseudoDBPath <- getConfiguration >>= return . _pseudoDBPath
  let path = pseudoDBPath++"/"++filePath
    in do
    logInfo $ "accessing pseudo db at: "++path
    BLC.readFile path >>= return . BLC.lines
loadEntries :: FilePath -> IO TaskInput
loadEntries filePath = do
  pseudoDBPath <- getConfiguration >>= return . _pseudoDBPath
  let path = pseudoDBPath++"/"++filePath
    in do
    logInfo $ "accessing pseudo db at: "++path
    BLC.readFile path >>= return . BLC.lines
loadEntries filePath = do
  pseudoDBPath <- getConfiguration >>= return . _pseudoDBPath
  let path = pseudoDBPath++"/"++filePath
    in do
    logInfo $ "accessing pseudo db at: "++path
    BLC.readFile path >>= return . BLC.lines