CurryInfo: currypp-3.2.0 / CPP.ICode.Parser.SQL.Converter.readParserInfo

 
readParserInfo :: Int -> String -> IO (Either String ParserInfo)
readParserInfo verb filename = do
  when (verb > 0) $ putStrLn $
    "Reading SQL model info file '" ++ filename ++ "'..."
  handle <- openFile filename ReadMode
  contents <- hGetContents handle
  case reads contents of
    []        -> return (Left "ParserInfo file not found or corrupted.")
    ((a,_):_) -> return (Right a)

 no demanded arguments

 deterministic operation

 
Reader for parser information file.
@param verb - verbosity level
@param filename - path/name of the .info file
@return either an error message or the parser information

 (_, _)

 referentially transparent operation

 no fixity defined

 {(_,_) |-> _}

 readParserInfo

 no precedence defined

 _

 Prelude.Int -> String
-> Prelude.IO (Prelude.Either String CPP.ICode.Parser.SQL.ParserInfoType.ParserInfo)

 operation might suspend on free variables

 possibly non-terminating

 possibly non-reducible on same data term