lean4-htt/Lake.lean
2021-06-08 17:17:58 -04:00

17 lines
507 B
Text

/-
Copyright (c) 2017 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Authors: Gabriel Ebner, Sebastian Ullrich, Mac Malone
-/
import Lake.Cli
import Lake.SearchPath
def main (args : List String) : IO UInt32 := do
try
Lake.setupLeanSearchPath
let (cmd, outerArgs, innerArgs) ← Lake.splitCmdlineArgs args
Lake.cli cmd outerArgs innerArgs
pure 0
catch e =>
IO.eprintln e -- avoid "uncaught exception: ..."
pure 1