From c8896290a65faf16de1f7d3d3be7cbee626babd2 Mon Sep 17 00:00:00 2001 From: Edwin Brady Date: Sat, 23 May 2020 15:57:20 +0100 Subject: [PATCH] Update scheme given network code move --- bootstrap/idris2_app/idris2.rkt | 528 ++++++++++++++++---------------- bootstrap/idris2_app/idris2.ss | 475 ++++++++++++++-------------- 2 files changed, 501 insertions(+), 502 deletions(-) diff --git a/bootstrap/idris2_app/idris2.rkt b/bootstrap/idris2_app/idris2.rkt index 908d378d7..25f61adde 100755 --- a/bootstrap/idris2_app/idris2.rkt +++ b/bootstrap/idris2_app/idris2.rkt @@ -37,16 +37,15 @@ (define-libc strlen (_fun _string/utf-8 -> _int)) (define-libc fprintf (_fun _pointer _string/utf-8 _int -> _void)) (define-libc fdopen (_fun _int _string/utf-8 -> _pointer)) -(define-ffi-definer define-idris_net (ffi-lib "idris_net" )) -(define-idris_net idrnet_errno (_fun -> _int)) -(define-idris_net listen (_fun _int _int -> _int)) -(define-idris_net idrnet_socket (_fun _int _int _int -> _int)) -(define-idris_net idrnet_sockaddr_ipv4 (_fun _pointer -> _string/utf-8)) -(define-idris_net idrnet_sockaddr_family (_fun _pointer -> _int)) -(define-idris_net idrnet_free (_fun _pointer -> _void)) -(define-idris_net idrnet_create_sockaddr (_fun -> _pointer)) -(define-idris_net idrnet_bind (_fun _int _int _int _string/utf-8 _int -> _int)) -(define-idris_net idrnet_accept (_fun _int _pointer -> _int)) +(define-libidris2_support idrnet_errno (_fun -> _int)) +(define-libidris2_support listen (_fun _int _int -> _int)) +(define-libidris2_support idrnet_socket (_fun _int _int _int -> _int)) +(define-libidris2_support idrnet_sockaddr_ipv4 (_fun _pointer -> _string/utf-8)) +(define-libidris2_support idrnet_sockaddr_family (_fun _pointer -> _int)) +(define-libidris2_support idrnet_free (_fun _pointer -> _void)) +(define-libidris2_support idrnet_create_sockaddr (_fun -> _pointer)) +(define-libidris2_support idrnet_bind (_fun _int _int _int _string/utf-8 _int -> _int)) +(define-libidris2_support idrnet_accept (_fun _int _pointer -> _int)) (let () (define (blodwen-os) (cond @@ -412,33 +411,33 @@ (define prim__cast_IntDouble (lambda (arg-0) (exact->inexact arg-0))) (define prim__cast_IntegerDouble (lambda (arg-0) (exact->inexact arg-0))) (define prim__cast_IntChar (lambda (arg-0) (integer->char arg-0))) -(define Main-case--32971-9974 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain arg-0 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-1))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))))))) -(define Main-case--32961-9962 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Main-quitOpts e-2) eta-0))) (let ((sc1 act-15)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn e-5 eta-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0))))))))) -(define Main-case--31652-9731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc1 (Prelude-not (let ((sc2 arg-21)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 arg-19 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-15 (REPL-Idris-loadMainFile arg-4 arg-19 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-displayErrors arg-4 arg-19 arg-5 arg-6 arg-14 e-5) eta-1))))))) eta-0)))))))) -(define Main-case--31872-9601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) -(define Main-case--32175-9334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-5 e-5) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0)))))))))))) -(define Main-case--32031-9267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (PrimIO-putStrLn e-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-6 e-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0)))))))))))))))))))) -(define Main-case--31950-9147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 (File-System-stdin) (File-System-stdout)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))) (else (Main-case--32031-9267 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 (CommandLine-Idris-ideSocketModeHostPort arg-0))))))) -(define Main-case--31872-9091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (Main-case--31950-9147 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 (Prelude-not arg-11))) (else (lambda (eta-0) (let ((act-15 (REPL-Idris-repl arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-showTimeRecord arg-4 eta-0))))))))))) -(define Main-case--31652-9038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Main-case--31872-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((doRepl 1)) ((Main-case--31872-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 6))) e-8))) eta-0)))))))))))))))))) -(define Main-case--31652-8938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (Package-Idris-findIpkg arg-4 arg-14 arg-13 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-13) eta-0))))))) -(define Main-case--31560-8852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((sc1 (Main-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Main-updateREPLOpts arg-14 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-getSession arg-4 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((sc5 (Prelude-not (let ((sc6 e-8)) (let ((e-1 (vector-ref sc6 2))) e-1))))) (cond ((equal? sc5 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((_-0 0)) ((Main-case--31652-8938 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 3))) e-2))) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc8 (Prelude-not (let ((sc9 e-8)) (let ((e-0 (vector-ref sc9 1))) e-0))))) (cond ((equal? sc8 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-6 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc7 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-21 (REPL-Idris-loadMainFile arg-4 e-6 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-11 (vector-ref sc8 1))) ((REPL-Idris-displayErrors arg-4 e-6 arg-5 arg-6 arg-14 e-11) eta-1))))))) eta-0))))))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 ((SetOptions-Idris-postOptions arg-4 e-6 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 0)) (let ((sc9 e-12)) (cond ((equal? sc9 0) (let ((doRepl 0)) ((Main-case--31872-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-24 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((doRepl 1)) ((Main-case--31872-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 doRepl e-13 e-14 (let ((sc12 e-13)) (let ((e-16 (vector-ref sc12 6))) e-16))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--31435-8775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((Package-Idris-processPackageOpts arg-4 arg-5 arg-14 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-not e-5))) (cond ((equal? sc2 0) (let ((act-16 ((SetOptions-Idris-preOptions arg-4 arg-14 arg-0) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((finish 1)) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-17 (let ((sc5 (Main-checkVerbose arg-0))) (cond ((equal? sc5 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-19 (Main-updateREPLOpts arg-14 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-20 (Context-Core-getSession arg-4 eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-21 (let ((sc9 (Prelude-not (let ((sc10 e-10)) (let ((e-1 (vector-ref sc10 2))) e-1))))) (cond ((equal? sc9 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-22 (let ((_-0 0)) ((Main-case--31652-8938 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 (let ((sc10 e-10)) (let ((e-2 (vector-ref sc10 3))) e-2))) eta-0)))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-23 (let ((sc11 e-12)) (case (vector-ref sc11 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc12 (Prelude-not (let ((sc13 e-10)) (let ((e-0 (vector-ref sc13 1))) e-0))))) (cond ((equal? sc12 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-8 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc11 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-23 (REPL-Idris-loadMainFile arg-4 e-8 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc12 act-23)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-13 (vector-ref sc12 1))) ((REPL-Idris-displayErrors arg-4 e-8 arg-5 arg-6 arg-14 e-13) eta-1))))))) eta-0))))))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-24 ((SetOptions-Idris-postOptions arg-4 e-8 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc12 1))) (let ((_-0 0)) (let ((sc13 e-14)) (cond ((equal? sc13 0) (let ((doRepl 0)) ((Main-case--31872-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-26 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((doRepl 1)) ((Main-case--31872-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl e-15 e-16 (let ((sc16 e-15)) (let ((e-18 (vector-ref sc16 6))) e-18))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))) -(define Main-case--31435-8705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) -(define Main-case--31426-8656 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Context-Core-initDefs eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((InitPrimitives-Core-addPrimitives e-6) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Context-Core-setWorkingDir e-6 "." eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Main-updatePaths e-6 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-22 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 ((Main-showInfo e-6 e-12 arg-0) eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 1)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((act-24 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-25 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((finish 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-26 (let ((sc15 (Main-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-28 (Main-updateREPLOpts e-12 eta-0))) (let ((sc17 act-28)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-18 (vector-ref sc17 1))) (let ((act-29 (Context-Core-getSession e-6 eta-0))) (let ((sc18 act-29)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-30 (let ((sc19 (Prelude-not (let ((sc20 e-19)) (let ((e-1 (vector-ref sc20 2))) e-1))))) (cond ((equal? sc19 0) (REPLCommon-Idris-iputStrLn e-12 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc19 act-30)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-31 (let ((_-1 0)) ((Main-case--31652-8938 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 (let ((sc20 e-19)) (let ((e-2 (vector-ref sc20 3))) e-2))) eta-0)))) (let ((sc20 act-31)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-32 (let ((sc21 e-21)) (case (vector-ref sc21 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "Loading prelude") (let ((sc22 (Prelude-not (let ((sc23 e-19)) (let ((e-0 (vector-ref sc23 1))) e-0))))) (cond ((equal? sc22 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc21 1))) (Context-Core-logTime 'erased e-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-32 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-8 e-12 e-2 eta-1))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-3 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-22 (vector-ref sc22 1))) ((REPL-Idris-displayErrors e-6 e-17 e-7 e-8 e-12 e-22) eta-1))))))) eta-0))))))) (let ((sc21 act-32)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-33 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-8 e-12 arg-0) eta-0))) (let ((sc22 act-33)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-23 (vector-ref sc22 1))) (let ((_-1 0)) (let ((sc23 e-23)) (cond ((equal? sc23 0) (let ((doRepl 0)) ((Main-case--31872-9091 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-34 (let ((act-34 (IORef-Data-readIORef 'erased e-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-34) eta-0)))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-35 (Context-Core-showTimeRecord e-6 eta-0))) (let ((sc25 act-35)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-25 (vector-ref sc25 1))) (let ((doRepl 1)) ((Main-case--31872-9601 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 doRepl e-24 e-25 (let ((sc26 e-24)) (let ((e-27 (vector-ref sc26 6))) e-27))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--31420-8648 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 ((Main-tryTTM arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-16 (Context-Core-initDefs eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 ((InitPrimitives-Core-addPrimitives e-7) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (Context-Core-setWorkingDir e-7 "." eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (Main-updatePaths e-7 eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-23 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-24 ((Main-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-1 1)) (let ((sc12 e-14)) (cond ((equal? sc12 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((act-25 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-26 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((finish 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-27 (let ((sc17 (Main-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-28)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-29 (Main-updateREPLOpts e-13 eta-0))) (let ((sc19 act-29)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-30 (Context-Core-getSession e-7 eta-0))) (let ((sc20 act-30)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-31 (let ((sc21 (Prelude-not (let ((sc22 e-20)) (let ((e-1 (vector-ref sc22 2))) e-1))))) (cond ((equal? sc21 0) (REPLCommon-Idris-iputStrLn e-13 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc21 act-31)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-32 (let ((_-2 0)) ((Main-case--31652-8938 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 (let ((sc22 e-20)) (let ((e-2 (vector-ref sc22 3))) e-2))) eta-0)))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-33 (let ((sc23 e-22)) (case (vector-ref sc23 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "Loading prelude") (let ((sc24 (Prelude-not (let ((sc25 e-20)) (let ((e-0 (vector-ref sc25 1))) e-0))))) (cond ((equal? sc24 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc23 1))) (Context-Core-logTime 'erased e-7 (lambda () "Loading main file") (lambda (eta-1) (let ((act-33 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-9 e-13 e-2 eta-1))) (let ((sc24 act-33)) (case (vector-ref sc24 0) ((0) (let ((e-3 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-23 (vector-ref sc24 1))) ((REPL-Idris-displayErrors e-7 e-18 e-8 e-9 e-13 e-23) eta-1))))))) eta-0))))))) (let ((sc23 act-33)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-34 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-9 e-13 arg-0) eta-0))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((_-2 0)) (let ((sc25 e-24)) (cond ((equal? sc25 0) (let ((doRepl 0)) ((Main-case--31872-9091 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-35 (let ((act-35 (IORef-Data-readIORef 'erased e-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-35) eta-0)))) (let ((sc26 act-35)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-25 (vector-ref sc26 1))) (let ((act-36 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc27 act-36)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-26 (vector-ref sc27 1))) (let ((doRepl 1)) ((Main-case--31872-9601 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl e-25 e-26 (let ((sc28 e-25)) (let ((e-28 (vector-ref sc28 6))) e-28))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--31273-8532 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-2 e-5 e-6)))))))))) -(define Main-case--31256-8509 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-7 e-2 e-3 e-1 e-5 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--30937-8482 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0))))))) -(define Main-case--30937-8447 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-4) (Prelude-C-61C-61_Eq__Char arg-4 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--30937-8404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-6) (Prelude-C-61C-61_Eq__Char arg-6 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--30937-8353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--30937-8286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Main-case--32972-9974 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain arg-0 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-1))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))))))) +(define Main-case--32962-9962 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Main-quitOpts e-2) eta-0))) (let ((sc1 act-15)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn e-5 eta-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0))))))))) +(define Main-case--31653-9731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc1 (Prelude-not (let ((sc2 arg-21)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 arg-19 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-15 (REPL-Idris-loadMainFile arg-4 arg-19 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-displayErrors arg-4 arg-19 arg-5 arg-6 arg-14 e-5) eta-1))))))) eta-0)))))))) +(define Main-case--31873-9601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) +(define Main-case--32176-9334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-5 e-5) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0)))))))))))) +(define Main-case--32032-9267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (PrimIO-putStrLn e-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-6 e-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0)))))))))))))))))))) +(define Main-case--31951-9147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 (File-System-stdin) (File-System-stdout)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))) (else (Main-case--32032-9267 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 (CommandLine-Idris-ideSocketModeHostPort arg-0))))))) +(define Main-case--31873-9091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (Main-case--31951-9147 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 (Prelude-not arg-11))) (else (lambda (eta-0) (let ((act-15 (REPL-Idris-repl arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-showTimeRecord arg-4 eta-0))))))))))) +(define Main-case--31653-9038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Main-case--31873-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 6))) e-8))) eta-0)))))))))))))))))) +(define Main-case--31653-8938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (Package-Idris-findIpkg arg-4 arg-14 arg-13 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-13) eta-0))))))) +(define Main-case--31561-8852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((sc1 (Main-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Main-updateREPLOpts arg-14 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-getSession arg-4 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((sc5 (Prelude-not (let ((sc6 e-8)) (let ((e-1 (vector-ref sc6 2))) e-1))))) (cond ((equal? sc5 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((_-0 0)) ((Main-case--31653-8938 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 3))) e-2))) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc8 (Prelude-not (let ((sc9 e-8)) (let ((e-0 (vector-ref sc9 1))) e-0))))) (cond ((equal? sc8 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-6 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc7 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-21 (REPL-Idris-loadMainFile arg-4 e-6 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-11 (vector-ref sc8 1))) ((REPL-Idris-displayErrors arg-4 e-6 arg-5 arg-6 arg-14 e-11) eta-1))))))) eta-0))))))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 ((SetOptions-Idris-postOptions arg-4 e-6 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 0)) (let ((sc9 e-12)) (cond ((equal? sc9 0) (let ((doRepl 0)) ((Main-case--31873-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-24 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 doRepl e-13 e-14 (let ((sc12 e-13)) (let ((e-16 (vector-ref sc12 6))) e-16))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--31436-8775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((Package-Idris-processPackageOpts arg-4 arg-5 arg-14 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-not e-5))) (cond ((equal? sc2 0) (let ((act-16 ((SetOptions-Idris-preOptions arg-4 arg-14 arg-0) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((finish 1)) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-17 (let ((sc5 (Main-checkVerbose arg-0))) (cond ((equal? sc5 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-19 (Main-updateREPLOpts arg-14 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-20 (Context-Core-getSession arg-4 eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-21 (let ((sc9 (Prelude-not (let ((sc10 e-10)) (let ((e-1 (vector-ref sc10 2))) e-1))))) (cond ((equal? sc9 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-22 (let ((_-0 0)) ((Main-case--31653-8938 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 (let ((sc10 e-10)) (let ((e-2 (vector-ref sc10 3))) e-2))) eta-0)))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-23 (let ((sc11 e-12)) (case (vector-ref sc11 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc12 (Prelude-not (let ((sc13 e-10)) (let ((e-0 (vector-ref sc13 1))) e-0))))) (cond ((equal? sc12 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-8 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc11 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-23 (REPL-Idris-loadMainFile arg-4 e-8 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc12 act-23)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-13 (vector-ref sc12 1))) ((REPL-Idris-displayErrors arg-4 e-8 arg-5 arg-6 arg-14 e-13) eta-1))))))) eta-0))))))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-24 ((SetOptions-Idris-postOptions arg-4 e-8 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc12 1))) (let ((_-0 0)) (let ((sc13 e-14)) (cond ((equal? sc13 0) (let ((doRepl 0)) ((Main-case--31873-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-26 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl e-15 e-16 (let ((sc16 e-15)) (let ((e-18 (vector-ref sc16 6))) e-18))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))) +(define Main-case--31436-8705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) +(define Main-case--31427-8656 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Context-Core-initDefs eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((InitPrimitives-Core-addPrimitives e-6) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Context-Core-setWorkingDir e-6 "." eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Main-updatePaths e-6 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-22 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 ((Main-showInfo e-6 e-12 arg-0) eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 1)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((act-24 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-25 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((finish 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-26 (let ((sc15 (Main-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-28 (Main-updateREPLOpts e-12 eta-0))) (let ((sc17 act-28)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-18 (vector-ref sc17 1))) (let ((act-29 (Context-Core-getSession e-6 eta-0))) (let ((sc18 act-29)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-30 (let ((sc19 (Prelude-not (let ((sc20 e-19)) (let ((e-1 (vector-ref sc20 2))) e-1))))) (cond ((equal? sc19 0) (REPLCommon-Idris-iputStrLn e-12 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc19 act-30)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-31 (let ((_-1 0)) ((Main-case--31653-8938 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 (let ((sc20 e-19)) (let ((e-2 (vector-ref sc20 3))) e-2))) eta-0)))) (let ((sc20 act-31)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-32 (let ((sc21 e-21)) (case (vector-ref sc21 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "Loading prelude") (let ((sc22 (Prelude-not (let ((sc23 e-19)) (let ((e-0 (vector-ref sc23 1))) e-0))))) (cond ((equal? sc22 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc21 1))) (Context-Core-logTime 'erased e-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-32 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-8 e-12 e-2 eta-1))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-3 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-22 (vector-ref sc22 1))) ((REPL-Idris-displayErrors e-6 e-17 e-7 e-8 e-12 e-22) eta-1))))))) eta-0))))))) (let ((sc21 act-32)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-33 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-8 e-12 arg-0) eta-0))) (let ((sc22 act-33)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-23 (vector-ref sc22 1))) (let ((_-1 0)) (let ((sc23 e-23)) (cond ((equal? sc23 0) (let ((doRepl 0)) ((Main-case--31873-9091 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-34 (let ((act-34 (IORef-Data-readIORef 'erased e-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-34) eta-0)))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-35 (Context-Core-showTimeRecord e-6 eta-0))) (let ((sc25 act-35)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-25 (vector-ref sc25 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 doRepl e-24 e-25 (let ((sc26 e-24)) (let ((e-27 (vector-ref sc26 6))) e-27))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--31421-8648 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 ((Main-tryTTM arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-16 (Context-Core-initDefs eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 ((InitPrimitives-Core-addPrimitives e-7) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (Context-Core-setWorkingDir e-7 "." eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (Main-updatePaths e-7 eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-23 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-24 ((Main-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-1 1)) (let ((sc12 e-14)) (cond ((equal? sc12 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((act-25 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-26 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((finish 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-27 (let ((sc17 (Main-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-28)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-29 (Main-updateREPLOpts e-13 eta-0))) (let ((sc19 act-29)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-30 (Context-Core-getSession e-7 eta-0))) (let ((sc20 act-30)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-31 (let ((sc21 (Prelude-not (let ((sc22 e-20)) (let ((e-1 (vector-ref sc22 2))) e-1))))) (cond ((equal? sc21 0) (REPLCommon-Idris-iputStrLn e-13 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc21 act-31)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-32 (let ((_-2 0)) ((Main-case--31653-8938 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 (let ((sc22 e-20)) (let ((e-2 (vector-ref sc22 3))) e-2))) eta-0)))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-33 (let ((sc23 e-22)) (case (vector-ref sc23 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "Loading prelude") (let ((sc24 (Prelude-not (let ((sc25 e-20)) (let ((e-0 (vector-ref sc25 1))) e-0))))) (cond ((equal? sc24 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc23 1))) (Context-Core-logTime 'erased e-7 (lambda () "Loading main file") (lambda (eta-1) (let ((act-33 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-9 e-13 e-2 eta-1))) (let ((sc24 act-33)) (case (vector-ref sc24 0) ((0) (let ((e-3 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-23 (vector-ref sc24 1))) ((REPL-Idris-displayErrors e-7 e-18 e-8 e-9 e-13 e-23) eta-1))))))) eta-0))))))) (let ((sc23 act-33)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-34 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-9 e-13 arg-0) eta-0))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((_-2 0)) (let ((sc25 e-24)) (cond ((equal? sc25 0) (let ((doRepl 0)) ((Main-case--31873-9091 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-35 (let ((act-35 (IORef-Data-readIORef 'erased e-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-35) eta-0)))) (let ((sc26 act-35)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-25 (vector-ref sc26 1))) (let ((act-36 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc27 act-36)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-26 (vector-ref sc27 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl e-25 e-26 (let ((sc28 e-25)) (let ((e-28 (vector-ref sc28 6))) e-28))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--31274-8532 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-2 e-5 e-6)))))))))) +(define Main-case--31257-8509 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-7 e-2 e-3 e-1 e-5 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--30938-8482 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0))))))) +(define Main-case--30938-8447 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-4) (Prelude-C-61C-61_Eq__Char arg-4 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--30938-8404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-6) (Prelude-C-61C-61_Eq__Char arg-6 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--30938-8353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--30938-8286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) (define Main-updateREPLOpts (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (System-getEnv "EDITOR" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-17 (IORef-Data-writeIORef 'erased arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-9 e-2 e-3 e-1 e-8 e-7)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))))))) (define Main-updatePaths (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (System-getEnv "IDRIS2_PREFIX" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Context-Core-setPrefix arg-0 e-1 ext-0))) (else (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) ext-0)))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (let ((act-17 (System-getEnv "IDRIS2_PATH" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Options-Core-pathSep))) e-1))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 (System-getEnv "IDRIS2_DATA" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Options-Core-pathSep))) e-1))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 (let ((act-21 (System-getEnv "IDRIS2_LIBS" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) ext-0)))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Options-Core-pathSep))) e-1))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) ext-0)))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-24 (SetOptions-Idris-addPkgDir arg-0 "prelude" ext-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-25 (SetOptions-Idris-addPkgDir arg-0 "base" ext-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-26 (Context-Core-addDataDir arg-0 (Strings-Prelude-C-43C-43 (let ((sc11 (let ((sc12 (let ((sc13 e-13)) (let ((e-4 (vector-ref sc13 5))) e-4)))) (let ((e-0 (vector-ref sc12 1))) e-0)))) (let ((e-4 (vector-ref sc11 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "support"))))) ext-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-27 (Context-Core-addLibDir arg-0 (Strings-Prelude-C-43C-43 (let ((sc12 (let ((sc13 (let ((sc14 e-13)) (let ((e-4 (vector-ref sc14 5))) e-4)))) (let ((e-0 (vector-ref sc13 1))) e-0)))) (let ((e-4 (vector-ref sc12 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "lib"))))) ext-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-28 (let ((act-28 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-28) ext-0)))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (Context-Core-addLibDir arg-0 e-1 ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define Main-tryYaffle (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((17) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Main-Yaffle-yaffleMain e-4 (vector 0 ) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))(else (Main-tryYaffle e-3))))))))))) (define Main-tryTTM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((18) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Metadata-Core-dumpTTM e-4 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))(else (Main-tryTTM e-3))))))))))) -(define Main-stMain (lambda (arg-0 ext-0) (let ((act-15 ((Main-tryYaffle arg-0) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 1) (let ((act-16 ((Main-tryTTM arg-0) ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-17 (Context-Core-initDefs ext-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-7 ext-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) ext-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 ((InitPrimitives-Core-addPrimitives e-8) ext-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (Context-Core-setWorkingDir e-8 "." ext-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-23 (Main-updatePaths e-8 ext-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) ext-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-25 ((Main-showInfo e-8 e-14 arg-0) ext-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-15 (vector-ref sc12 1))) (let ((_-1 1)) (let ((sc13 e-15)) (cond ((equal? sc13 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((act-26 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-0) ext-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-27 ((SetOptions-Idris-preOptions e-8 e-14 arg-0) ext-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-17 (vector-ref sc16 1))) (let ((finish 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-28 (let ((sc18 (Main-checkVerbose arg-0))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc18 act-28)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-29 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-29)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-30 (Main-updateREPLOpts e-14 ext-0))) (let ((sc20 act-30)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-31 (Context-Core-getSession e-8 ext-0))) (let ((sc21 act-31)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-32 (let ((sc22 (Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-14 (Main-banner) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-33 (let ((_-2 0)) ((Main-case--31652-8938 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) ext-0)))) (let ((sc23 act-33)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-34 (let ((sc24 e-23)) (case (vector-ref sc24 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "Loading prelude") (let ((sc25 (Prelude-not (let ((sc26 e-21)) (let ((e-0 (vector-ref sc26 1))) e-0))))) (cond ((equal? sc25 0) (lambda (eta-0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))) ext-0)) (else (let ((e-2 (vector-ref sc24 1))) (Context-Core-logTime 'erased e-8 (lambda () "Loading main file") (lambda (eta-0) (let ((act-34 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-10 e-14 e-2 eta-0))) (let ((sc25 act-34)) (case (vector-ref sc25 0) ((0) (let ((e-3 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-24 (vector-ref sc25 1))) ((REPL-Idris-displayErrors e-8 e-19 e-9 e-10 e-14 e-24) eta-0))))))) ext-0))))))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-35 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-10 e-14 arg-0) ext-0))) (let ((sc25 act-35)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-25 (vector-ref sc25 1))) (let ((_-2 0)) (let ((sc26 e-25)) (cond ((equal? sc26 0) (let ((doRepl 0)) ((Main-case--31872-9091 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-36 (let ((act-36 (IORef-Data-readIORef 'erased e-14 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-36) ext-0)))) (let ((sc27 act-36)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-26 (vector-ref sc27 1))) (let ((act-37 (Context-Core-showTimeRecord e-8 ext-0))) (let ((sc28 act-37)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-27 (vector-ref sc28 1))) (let ((doRepl 1)) ((Main-case--31872-9601 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc29 e-26)) (let ((e-29 (vector-ref sc29 6))) e-29))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) +(define Main-stMain (lambda (arg-0 ext-0) (let ((act-15 ((Main-tryYaffle arg-0) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 1) (let ((act-16 ((Main-tryTTM arg-0) ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-17 (Context-Core-initDefs ext-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-7 ext-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) ext-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 ((InitPrimitives-Core-addPrimitives e-8) ext-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (Context-Core-setWorkingDir e-8 "." ext-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-23 (Main-updatePaths e-8 ext-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) ext-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-25 ((Main-showInfo e-8 e-14 arg-0) ext-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-15 (vector-ref sc12 1))) (let ((_-1 1)) (let ((sc13 e-15)) (cond ((equal? sc13 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((act-26 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-0) ext-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-27 ((SetOptions-Idris-preOptions e-8 e-14 arg-0) ext-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-17 (vector-ref sc16 1))) (let ((finish 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-28 (let ((sc18 (Main-checkVerbose arg-0))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc18 act-28)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-29 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-29)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-30 (Main-updateREPLOpts e-14 ext-0))) (let ((sc20 act-30)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-31 (Context-Core-getSession e-8 ext-0))) (let ((sc21 act-31)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-32 (let ((sc22 (Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-14 (Main-banner) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-33 (let ((_-2 0)) ((Main-case--31653-8938 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) ext-0)))) (let ((sc23 act-33)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-34 (let ((sc24 e-23)) (case (vector-ref sc24 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "Loading prelude") (let ((sc25 (Prelude-not (let ((sc26 e-21)) (let ((e-0 (vector-ref sc26 1))) e-0))))) (cond ((equal? sc25 0) (lambda (eta-0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))) ext-0)) (else (let ((e-2 (vector-ref sc24 1))) (Context-Core-logTime 'erased e-8 (lambda () "Loading main file") (lambda (eta-0) (let ((act-34 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-10 e-14 e-2 eta-0))) (let ((sc25 act-34)) (case (vector-ref sc25 0) ((0) (let ((e-3 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-24 (vector-ref sc25 1))) ((REPL-Idris-displayErrors e-8 e-19 e-9 e-10 e-14 e-24) eta-0))))))) ext-0))))))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-35 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-10 e-14 arg-0) ext-0))) (let ((sc25 act-35)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-25 (vector-ref sc25 1))) (let ((_-2 0)) (let ((sc26 e-25)) (cond ((equal? sc26 0) (let ((doRepl 0)) ((Main-case--31873-9091 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-36 (let ((act-36 (IORef-Data-readIORef 'erased e-14 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-36) ext-0)))) (let ((sc27 act-36)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-26 (vector-ref sc27 1))) (let ((act-37 (Context-Core-showTimeRecord e-8 ext-0))) (let ((sc28 act-37)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-27 (vector-ref sc28 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc29 e-26)) (let ((e-29 (vector-ref sc29 6))) e-29))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (define Main-showInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((27) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (REPLCommon-Idris-iputStrLn arg-1 (Options-Core-toString (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))(else (Main-showInfo arg-0 arg-1 e-3))))))))))) (define Main-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased 0 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (CommandLine-Idris-versionMsg) eta-0))) (Prelude-pure_Applicative__IO 'erased 1 eta-0)))) ((7) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0))) (Prelude-pure_Applicative__IO 'erased 1 eta-0)))) ((5) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (IdrisPaths-yprefix) eta-0))) (Prelude-pure_Applicative__IO 'erased 1 eta-0))))(else (Main-quitOpts e-3))))))))))) (define Main-main (lambda (ext-0) (let ((act-15 (CommandLine-Idris-getCmdOpts ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 ((Main-quitOpts e-2) ext-0))) (let ((sc1 act-16)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-0) (Main-stMain e-2 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-17 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (lambda (res) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) ext-0))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (PrimIO-putStrLn e-5 ext-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) ext-0))))))))) @@ -446,7 +445,7 @@ (define Main-checkVerbose (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) 0)(else (Main-checkVerbose e-3))))))))))) (define Main-banner (lambda () (Strings-Prelude-C-43C-43 " ____ __ _ ___ \u000a" (Strings-Prelude-C-43C-43 " / _/___/ /____(_)____ |__ \\ \u000a" (Strings-Prelude-C-43C-43 " / // __ / ___/ / ___/ __/ / Version " (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 0 (Version-Idris-version)) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " _/ // /_/ / / / (__ ) / __/ https://www.idris-lang.org \u000a" (Strings-Prelude-C-43C-43 " /___/\\__,_/_/ /_/____/ /____/ Type :? for help \u000a" (Strings-Prelude-C-43C-43 "\u000a" "Welcome to Idris 2. Enjoy yourself!")))))))))) (define IdrisPaths-yprefix (lambda () "__PREFIX__")) -(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "1524b865c"))) +(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "561123d49"))) (define Prelude-case--7924-8682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2))))))))) (else (Prelude-countFrom 'erased arg-2 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-2) arg-3))))))))))))) (define Prelude-case--8149-8611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-2 (vector 0 ))) (else (vector 0 )))))) (define Prelude-case--8084-8548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 arg-6) arg-2)))) (Prelude-countFrom 'erased arg-4 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-4) arg-3)))))))))) (else (Prelude-case--8149-8611 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-38C-38 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-4) arg-3))) (lambda () (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) arg-2))))))))))) @@ -1660,7 +1659,7 @@ (define Hex-Utils-with--1267-543 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Hex-Utils-n--1265-534-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3))))))) (define Hex-Utils-n--1384-649-fromHexCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-fromHexDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-n--1384-649-fromHexCharsC-39 (Prelude-C-42_Num__Int arg-0 16) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Int (Prelude-C-42_Num__Int bind-0 arg-0) bind-1))))))))))))) (define Hex-Utils-n--1265-534-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--1267-543 arg-1 arg-1 (IntV-Views-Primitives-Data-divides arg-1 16) arg-2)))))) -(define Hex-Utils-hexDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\0) ((equal? sc0 1) #\1) ((equal? sc0 2) #\2) ((equal? sc0 3) #\3) ((equal? sc0 4) #\4) ((equal? sc0 5) #\5) ((equal? sc0 6) #\6) ((equal? sc0 7) #\7) ((equal? sc0 8) #\8) ((equal? sc0 9) #\9) ((equal? sc0 10) #\a) ((equal? sc0 11) #\b) ((equal? sc0 12) #\c) ((equal? sc0 13) #\d) ((equal? sc0 14) #\e) ((equal? sc0 15) #\f)(else (Builtin-idris_crash 'erased "Unhandled input for Utils.Hex.hexDigit at Utils/Hex.idr:6:1--7:1")))))) +(define Hex-Utils-hexDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\0) ((equal? sc0 1) #\1) ((equal? sc0 2) #\2) ((equal? sc0 3) #\3) ((equal? sc0 4) #\4) ((equal? sc0 5) #\5) ((equal? sc0 6) #\6) ((equal? sc0 7) #\7) ((equal? sc0 8) #\8) ((equal? sc0 9) #\9) ((equal? sc0 10) #\a) ((equal? sc0 11) #\b) ((equal? sc0 12) #\c) ((equal? sc0 13) #\d) ((equal? sc0 14) #\e) ((equal? sc0 15) #\f)(else (Builtin-idris_crash 'erased "Unhandled input for Utils.Hex.hexDigit at src/Utils/Hex.idr:6:1--7:1")))))) (define Hex-Utils-fromHexDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7)) ((equal? sc0 #\8) (vector 1 8)) ((equal? sc0 #\9) (vector 1 9)) ((equal? sc0 #\a) (vector 1 10)) ((equal? sc0 #\b) (vector 1 11)) ((equal? sc0 #\c) (vector 1 12)) ((equal? sc0 #\d) (vector 1 13)) ((equal? sc0 #\e) (vector 1 14)) ((equal? sc0 #\f) (vector 1 15))(else (vector 0 )))))) (define Hex-Utils-fromHexChars (lambda (ext-0) (Hex-Utils-n--1384-649-fromHexCharsC-39 1 ext-0))) (define Hex-Utils-fromHex (lambda (ext-0) (Hex-Utils-fromHexChars (Prelude-unpack ext-0)))) @@ -5734,156 +5733,156 @@ (define ANameMap-Data-empty (lambda (arg-0) (vector 0 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased)))) (define ANameMap-Data-addToHier (lambda (arg-0 arg-1 arg-2 arg-3) (ANameMap-Data-case--2681-3201 'erased arg-2 arg-3 arg-1 (Name-Core-userNameRoot arg-1)))) (define ANameMap-Data-addName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((dictC-39 (NameMap-Data-insert 'erased arg-1 arg-2 e-1))) (let ((hierC-39 (ANameMap-Data-addToHier 'erased arg-1 arg-2 e-2))) (vector 0 dictC-39 hierC-39)))))))) -(define SetOptions-Idris-case--29864-12637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 1 arg-0))))))))))))))) -(define SetOptions-Idris-case--29864-12596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10)))))))))))))) -(define SetOptions-Idris-case--29864-12555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29864-12514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29864-12477 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29864-12436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29864-12293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setCG arg-3 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "No such code generator" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))))))))))) -(define SetOptions-Idris-case--29864-12280 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29864-12232 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29864-12195 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29864-12156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29864-12115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29864-12076 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-12 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-12 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-11 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-11 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((15) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((9) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((4) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (SetOptions-Idris-case--29864-12293 e-6 e-3 arg-1 arg-0 (Options-Core-getCG e-6)))) ((11) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (SetOptions-Idris-addPkgDir arg-0 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((13) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((SetOptions-Idris-dirOption (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)) e-8) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((25) (lambda (eta-0) (let ((act-15 (Context-Core-setLogTimings arg-0 0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (lambda (eta-0) (let ((act-15 (Context-Core-setDebugElabCheck arg-0 0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((23) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (Context-Core-getSession arg-0 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-13 (vector-ref sc4 6))) (let ((e-12 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-11 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-12 e-7 e-8 e-11 e-10)))))))))))) eta-0)))))))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((24) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 0 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((19) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 (vector 1 e-10) e-8 e-9 e-11)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((20) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 (vector 1 e-11) e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((21) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-11 e-6 e-7 e-8 (vector 1 e-12) e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((22) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-14 e-12 e-4 e-11 e-6 e-7 e-8 e-9 (vector 1 e-13))))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))(else (SetOptions-Idris-preOptions arg-0 arg-1 e-3))))))))))) +(define SetOptions-Idris-case--29865-12637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 1 arg-0))))))))))))))) +(define SetOptions-Idris-case--29865-12596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12477 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setCG arg-3 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "No such code generator" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))))))))))) +(define SetOptions-Idris-case--29865-12280 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12232 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12195 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12076 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-12 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-12 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-11 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-11 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((15) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((9) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((4) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (SetOptions-Idris-case--29865-12293 e-6 e-3 arg-1 arg-0 (Options-Core-getCG e-6)))) ((11) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (SetOptions-Idris-addPkgDir arg-0 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((13) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((SetOptions-Idris-dirOption (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)) e-8) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((25) (lambda (eta-0) (let ((act-15 (Context-Core-setLogTimings arg-0 0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (lambda (eta-0) (let ((act-15 (Context-Core-setDebugElabCheck arg-0 0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((23) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (Context-Core-getSession arg-0 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-13 (vector-ref sc4 6))) (let ((e-12 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-11 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-12 e-7 e-8 e-11 e-10)))))))))))) eta-0)))))))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((24) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 0 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((19) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 (vector 1 e-10) e-8 e-9 e-11)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((20) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 (vector 1 e-11) e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((21) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-11 e-6 e-7 e-8 (vector 1 e-12) e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((22) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-14 e-12 e-4 e-11 e-6 e-7 e-8 e-9 (vector 1 e-13))))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))(else (SetOptions-Idris-preOptions arg-0 arg-1 e-3))))))))))) (define SetOptions-Idris-postOptions (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")) e-4 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 e-5)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))) ((0) (lambda (eta-0) (let ((act-15 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((23) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) (define SetOptions-Idris-ideModeSocket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((16) 0)(else (SetOptions-Idris-ideModeSocket e-3))))))))))) (define SetOptions-Idris-ideMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((15) 0)(else (SetOptions-Idris-ideMode e-3))))))))))) (define SetOptions-Idris-dirOption (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Options-Core-dirSep))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))) (define SetOptions-Idris-addPkgDir (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-addExtraDir arg-0 (Strings-Prelude-C-43C-43 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-1))))) ext-0)))))))) -(define REPL-Idris-case--36837-7986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3)))))))) -(define REPL-Idris-case--36830-7860 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))) -(define REPL-Idris-case--36824-7790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPLCommon-Idris-iputStrLn arg-0 "Bye for now!" eta-0))))))) (else (lambda (eta-0) (let ((act-15 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0)))))))))))) -(define REPL-Idris-case--36731-7642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Support-Parser-show_Show__ParseError e-2))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0)))))))))))) -(define REPL-Idris-case--36627-7609 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))))))) -(define REPL-Idris-case--36630-7553 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--36627-7527-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--36627-7528-fnameCmd arg-0 arg-3 arg-4)))))) -(define REPL-Idris-case--35128-7354 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 1 e-2)))))) -(define REPL-Idris-case--35128-7186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 16 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-16 (let ((act-16 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Totality arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Totality arg-4526 arg-4527)))) e-6 eta-1)))))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 fn e-6)) eta-1)))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--36101-7073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-9 e-5)) eta-0))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-9 e-5)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-9)) eta-0))))))) -(define REPL-Idris-case--35128-7017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 15 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-7)) ((REPL-Idris-case--36101-7073 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--35128-6893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-15 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-8)) eta-0)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--35128-6804 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((line (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Prelude-C-43C-43 " +" (Prelude-show_Show__Int (Prelude-C-43_Num__Int i (Prelude-fromInteger_Num__Int 1)))))) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5))))) (lambda (eta-0) (let ((act-15 (let ((act-15 (System-system (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 line))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))))))) -(define REPL-Idris-case--35128-6760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-0) e-3 e-4 e-5 e-6)))))))))) -(define REPL-Idris-case--35128-6688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))) -(define REPL-Idris-case--35128-6631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) arg-7) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))))))) -(define REPL-Idris-case--35128-6547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-6 e-8)) eta-0))))))))))))))))))))))))))) -(define REPL-Idris-case--35128-6465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) arg-8) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))))))) -(define REPL-Idris-case--35254-6315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased arg-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((((arg-16 arg-14) (vector 0 )) e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-18 (vector 1 e-6))) eta-0))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-18 (vector 0 ))) eta-0))))))) -(define REPL-Idris-case--35166-6242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((norm (REPL-Idris-n--35128-6122-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-17 ((((norm e-5) (vector 0 )) e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--35254-6315 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 _-0 e-5 e-6 norm e-7 e-8 e-9 (let ((sc6 e-6)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))) -(define REPL-Idris-case--35128-6157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-15 (REPL-Idris-execExp arg-5 arg-4 arg-3 arg-2 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-0)) eta-0)))))))(else (lambda (eta-0) (let ((act-15 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) arg-0 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-17 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--35128-6121-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((norm (REPL-Idris-n--35128-6122-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-21 ((((norm e-9) (vector 0 )) e-2) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--35254-6315 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-6 e-7 e-2 e-3 _-0 e-9 e-10 norm e-11 e-12 e-13 (let ((sc10 e-10)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define REPL-Idris-case--34993-6038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-0)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0 arg-9)) eta-0))))))) -(define REPL-Idris-case--34967-5996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-logTime 'erased arg-5 (lambda () "Build deps") (lambda (eta-1) (ModTree-Idris-buildDeps arg-5 arg-3 arg-2 arg-4 arg-1 arg-0 eta-1)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((REPLCommon-Idris-updateErrorLine arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (REPLOpts-Idris-setSource arg-1 e-2 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-0)) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0 e-5)) eta-0)))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setSource arg-1 "" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 arg-0 e-5)) eta-0)))))))))))) -(define REPL-Idris-case--34860-5915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (REPL-Idris-findCG arg-6 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-compile arg-6 e-6 e-5 arg-0 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 )) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 eta-1)) eta-2)))) e-6) eta-0)))))))))))))))) -(define REPL-Idris-case--34770-5834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (LinearCheck-Core-linearCheck (vector 0 ) arg-4 arg-3 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (REPL-Idris-findCG arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-execute arg-4 e-6 e-5 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-0)) eta-0))))))))))))))) -(define REPL-Idris-case--31224-5724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith arg-0 e-1) (vector 0 )))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not available")) eta-0))))))) -(define REPL-Idris-case--34346-5499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma arg-27 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-27 arg-0 arg-20 arg-23)) eta-0))))))) -(define REPL-Idris-case--34267-5436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma e-2 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-2 arg-0 arg-20 arg-23)) eta-0))))))))) -(define REPL-Idris-case--34063-5382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--34267-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))) -(define REPL-Idris-case--34063-5278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) -(define REPL-Idris-case--33998-5218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-pterm arg-7 arg-5 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc4 arg-10)) (cond ((equal? sc4 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-6)) (else e-6)))))) (let ((act-18 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-1 (vector 1 e-1))) ((REPL-Idris-case--34267-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 e-5 e-6 e-7 pappstr e-1 _-1 (Unlit-Parser-isLitLine e-1)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))))))))))))))))))) -(define REPL-Idris-case--31224-5167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((7) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-15 (MakeLemma-Interactive-TTImp-makeLemma arg-4 arg-7 (REPLOpts-Idris-replFC) arg-0 e-15 e-14 eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc7 e-7)) (let ((e-4 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-16 (Resugar-Idris-pterm arg-7 arg-5 e-4 eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (let ((act-17 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-10)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-11)) (else e-11)))))) (let ((act-19 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc11 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc12 e-17)) (case (vector-ref sc12 0) ((1) (let ((e-18 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-18))) ((REPL-Idris-case--34267-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-16 e-5 e-9 e-15 e-14 bind-0 e-4 e-3 _-0 e-8 e-11 e-12 pappstr e-18 _-1 (Unlit-Parser-isLitLine e-18)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))) -(define REPL-Idris-case--33584-4856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines arg-23) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-23)) eta-0))))))) -(define REPL-Idris-case--33523-4794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((l (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-15))))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-7 arg-5 e-2 l eta-1)) arg-16) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-2)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0))))))))))))))) -(define REPL-Idris-case--33461-4752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--33523-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))) -(define REPL-Idris-case--33386-4706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-2))) ((REPL-Idris-case--33523-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 e-6 _-0 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))) (else (REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0))))))) -(define REPL-Idris-case--33331-4642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-15 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-12 eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((act-16 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-8 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-3))) ((REPL-Idris-case--33523-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 bind-0 e-7 e-6 _-0 e-3 _-1 (Unlit-Parser-isLitLine e-3)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))) eta-0))))))) -(define REPL-Idris-case--31224-4596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-16 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-1))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-8 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((act-17 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-15 (vector-ref sc10 1))) (let ((_-1 (vector 1 (vector 0 e-12 e-11)))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--33523-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-13 e-5 e-9 _-0 bind-0 e-12 e-11 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int arg-1)))))) eta-0))))))) -(define REPL-Idris-case--32894-4392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-25 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-25 (vector 0 )))) eta-0))))))) -(define REPL-Idris-case--32894-4293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-24)) (else arg-24))))) -(define REPL-Idris-case--32782-4226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc3 arg-12)) (cond ((equal? sc3 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-5)) (else e-5)))))) (let ((sc3 arg-4)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))))))) -(define REPL-Idris-case--32056-4134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--32782-4226 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-0 (REPL-Idris-n--31224-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-0 (vector 0 ) arg-17)))))))) -(define REPL-Idris-case--32056-4027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0)))))))))) -(define REPL-Idris-case--32268-3906 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 arg-24 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-24 (vector 0 )))) eta-0))))))) -(define REPL-Idris-case--32268-3811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) -(define REPL-Idris-case--32150-3714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-11)) (cond ((equal? sc1 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0)))))))))))) -(define REPL-Idris-case--32056-3616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-22) (Syntax-Idris-show_Show__PTerm arg-22)) arg-21))) eta-0))) (else (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0))) (else (let ((e-2 (vector-ref sc1 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc2 arg-12)) (cond ((equal? sc2 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))) -(define REPL-Idris-case--31224-3535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((7) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-15 (ExprSearch-Interactive-TTImp-exprSearch arg-9 arg-6 arg-8 (REPLOpts-Idris-replFC) arg-2 (vector 0 ) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 7 e-12 e-13))) (vector 0 )))) (REPL-Idris-case--32056-4027 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-13 e-6 e-10 e-12 bind-0 e-5 e-8 e-9 tm (REPL-Idris-n--31224-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-12 (vector 0 ) tm)))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 arg-0)) (cond ((equal? sc9 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (Syntax-Idris-show_Show__PTerm arg-14)) e-14))) eta-0)) (else (let ((sc10 e-14)) (case (vector-ref sc10 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0)) (else (let ((e-4 (vector-ref sc10 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-12)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc11 arg-4)) (cond ((equal? sc11 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 1 e-14 (vector 0 ) (vector 1 e-22) e-17 e-18))) (vector 0 )))) (REPL-Idris-case--32056-4134 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-17 e-18 e-6 e-10 e-22 e-14 bind-0 (let ((sc7 e-14)) (let ((e-0 (vector-ref sc7 1))) e-0)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name arg-2)))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) -(define REPL-Idris-case--31862-3380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause arg-8 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-8 (vector 0 )))) eta-0))))))) -(define REPL-Idris-case--31224-3359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-1 (vector 0 )))) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not defined here"))) eta-0))))))) -(define REPL-Idris-case--31699-3256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines arg-12) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-12)) eta-0))))))) -(define REPL-Idris-case--31224-3213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (CaseSplit-IDEMode-Idris-updateCase arg-8 arg-6 arg-4 e-1 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-3)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0)))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-3))) eta-0)))))))) -(define REPL-Idris-case--31224-3137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1)) eta-0))) (else (lambda (eta-0) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-2 1) eta-0))))))) -(define REPL-Idris-case--31224-3076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-7 arg-5 arg-8 eta-1)) arg-9) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-showSep "\u000a" e-5)) eta-0)))))))))))) -(define REPL-Idris-case--31279-2993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)) arg-0) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-10 (vector 0 )))) eta-0))))))) -(define REPL-Idris-case--31279-2884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (REPL-Idris-displayTerm arg-7 arg-5 arg-8 arg-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-11) (Strings-Prelude-C-43C-43 " : " e-5)) (vector 0 )))) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))) -(define REPL-Idris-case--31224-2845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (REPL-Idris-case--31279-2884 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-9 e-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))))) (else (let ((_-0 (vector 0 ))) (REPL-Idris-case--31279-2993 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 "")))))))) -(define REPL-Idris-case--31112-2717 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 (Strings-Prelude-C-43C-43 "\u000a" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--31105-2692-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7))))))) -(define REPL-Idris-case--31039-2634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 arg-5 (Prelude-pack (List-Data-drop 'erased (Prelude-length arg-6) (Prelude-unpack arg-4))))) (else (Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--31030-2627-replaceStr arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (substring arg-4 1 (string-length arg-4))))))))) -(define REPL-Idris-case--30899-2514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile (Strings-Prelude-C-43C-43 arg-3 "~") e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (File-System-writeFile arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0)))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-5) eta-0)))))))) -(define REPL-Idris-case--30885-2494 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-readFile e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (File-System-writeFile (Strings-Prelude-C-43C-43 e-1 "~") e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (File-System-writeFile e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))) -(define REPL-Idris-case--30729-2336 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Chez-Scheme-Compiler-codegenChez)) eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Racket-Scheme-Compiler-codegenRacket)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Gambit-Scheme-Compiler-codegenGambit)) eta-0))))))) -(define REPL-Idris-case--30510-2270 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 "No such code generator available" eta-0))))))) -(define REPL-Idris-case--30510-2259 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6)))))))))) -(define REPL-Idris-case--30510-2227 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6)))))))))) -(define REPL-Idris-case--30510-2195 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6)))))))))) -(define REPL-Idris-case--30510-2163 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-0)))))) -(define REPL-Idris-case--30510-2143 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 e-2)))))) -(define REPL-Idris-case--30418-2060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayClause arg-5 arg-4 arg-3 eta-1)) e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000a" (Name-Core-showSep "\u000a" e-6)))) eta-0))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " is not a pattern matching definition")) eta-0))))))) -(define REPL-Idris-case--30036-1734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) arg-8) (else (REPL-Idris-n--29905-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8)))))) -(define REPL-Idris-case--29905-1706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envsC-39 (let ((_-0 (vector 0 e-2 e-3))) (REPL-Idris-case--30036-1734 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 _-0 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) envsC-39)) e-3)) eta-0))))))))))))) -(define REPL-Idris-case--29919-1633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (REPL-Idris-n--29905-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-11)) (else (vector 1 (vector 0 arg-9 arg-10) (REPL-Idris-n--29905-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-11))))))) -(define REPL-Idris-case--29643-1518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 arg-2 arg-12) e-2) e-3)) eta-0))))))) -(define REPL-Idris-case--29643-1434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (REPL-Idris-showCount (TT-Core-multiplicity 'erased arg-4)) (Strings-Prelude-C-43C-43 (REPL-Idris-impBracket (REPL-Idris-n--29643-1387-implicitBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-4) (Strings-Prelude-C-43C-43 (REPL-Idris-tidy arg-2) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm arg-11)))) "\u000a"))) (else ""))))) -(define REPL-Idris-case--29545-1288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))))))) -(define REPL-Idris-case--29542-1267 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (REPL-Idris-case--29545-1288 arg-0 e-3 e-4 e-5 e-6 e-2 (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))(else (vector 0 )))))) -(define REPL-Idris-case--29302-1187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))) -(define REPL-Idris-n--31030-2627-replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (REPL-Idris-case--31039-2634 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 arg-4 (Strings-Data-isPrefixOf arg-4 arg-6))))))) -(define REPL-Idris-n--36824-7752-prompt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "[tc] ") ((1) "") (else "[exec] "))))) -(define REPL-Idris-n--35128-6122-nfun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normaliseAll arg-6 eta-0 eta-1 eta-2 eta-3))))))(else (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normalise arg-6 eta-0 eta-1 eta-2 eta-3)))))))))) -(define REPL-Idris-n--36843-8091-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ ))))) -(define REPL-Idris-n--31105-2692-insertInBlank (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (Unlit-Parser-relit arg-6 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--31112-2717 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) ""))))))))) -(define REPL-Idris-n--29643-1387-implicitBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) 1)(else 0))))) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) 1)(else 0)))))(else 1))))) -(define REPL-Idris-n--36627-7527-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Prelude-substr arg-1 (Prelude-length arg-3) arg-3)))))) -(define REPL-Idris-n--36627-7528-fnameCmd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--36630-7553 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2)))))))))))) -(define REPL-Idris-n--35128-6121-emode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (vector 2 )))))) -(define REPL-Idris-n--29905-1600-dropShadows (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--29919-1633 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-6 e-7 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-3))))))))))))) -(define REPL-Idris-n--31224-3453-dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (vector 0 arg-10 (vector 0 arg-12 arg-13)))(else (let ((e-0 (- arg-11 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (REPL-Idris-n--31224-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-3 arg-10) e-0 (vector 1 e-4 arg-12) e-5)))))(else (vector 0 arg-10 (vector 0 arg-12 arg-13))))))))))) -(define REPL-Idris-n--36843-8092-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (REPL-Idris-n--36843-8091-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--36843-8091-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4)))))) -(define REPL-Idris-n--36843-8093-cmdInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 " " (REPL-Idris-n--36843-8092-col (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))) (Name-Core-showSep " " e-2) (Parser-Idris-show_Show__CmdArg e-6) e-7)))))))))) -(define REPL-Idris-n--31105-2693-addApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--31105-2692-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8)) arg-9))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-n--31105-2693-addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (vector 1 e-2 arg-8) e-3)))) (else (List-Data-reverse 'erased arg-8)))))))))) -(define REPL-Idris-updateFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--30885-2494 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0)))))))) +(define REPL-Idris-case--36838-7986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3)))))))) +(define REPL-Idris-case--36831-7860 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))) +(define REPL-Idris-case--36825-7790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPLCommon-Idris-iputStrLn arg-0 "Bye for now!" eta-0))))))) (else (lambda (eta-0) (let ((act-15 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0)))))))))))) +(define REPL-Idris-case--36732-7642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Support-Parser-show_Show__ParseError e-2))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0)))))))))))) +(define REPL-Idris-case--36628-7609 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))))))) +(define REPL-Idris-case--36631-7553 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--36628-7527-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--36628-7528-fnameCmd arg-0 arg-3 arg-4)))))) +(define REPL-Idris-case--35129-7354 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 1 e-2)))))) +(define REPL-Idris-case--35129-7186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 16 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-16 (let ((act-16 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Totality arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Totality arg-4526 arg-4527)))) e-6 eta-1)))))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 fn e-6)) eta-1)))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--36102-7073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-9 e-5)) eta-0))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-9 e-5)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-9)) eta-0))))))) +(define REPL-Idris-case--35129-7017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 15 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-7)) ((REPL-Idris-case--36102-7073 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--35129-6893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-15 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-8)) eta-0)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--35129-6804 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((line (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Prelude-C-43C-43 " +" (Prelude-show_Show__Int (Prelude-C-43_Num__Int i (Prelude-fromInteger_Num__Int 1)))))) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5))))) (lambda (eta-0) (let ((act-15 (let ((act-15 (System-system (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 line))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))))))) +(define REPL-Idris-case--35129-6760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-0) e-3 e-4 e-5 e-6)))))))))) +(define REPL-Idris-case--35129-6688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))) +(define REPL-Idris-case--35129-6631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) arg-7) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))))))) +(define REPL-Idris-case--35129-6547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-6 e-8)) eta-0))))))))))))))))))))))))))) +(define REPL-Idris-case--35129-6465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) arg-8) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))))))) +(define REPL-Idris-case--35255-6315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased arg-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((((arg-16 arg-14) (vector 0 )) e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-18 (vector 1 e-6))) eta-0))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-18 (vector 0 ))) eta-0))))))) +(define REPL-Idris-case--35167-6242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((norm (REPL-Idris-n--35129-6122-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-17 ((((norm e-5) (vector 0 )) e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--35255-6315 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 _-0 e-5 e-6 norm e-7 e-8 e-9 (let ((sc6 e-6)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))) +(define REPL-Idris-case--35129-6157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-15 (REPL-Idris-execExp arg-5 arg-4 arg-3 arg-2 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-0)) eta-0)))))))(else (lambda (eta-0) (let ((act-15 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) arg-0 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-17 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--35129-6121-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((norm (REPL-Idris-n--35129-6122-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-21 ((((norm e-9) (vector 0 )) e-2) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--35255-6315 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-6 e-7 e-2 e-3 _-0 e-9 e-10 norm e-11 e-12 e-13 (let ((sc10 e-10)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define REPL-Idris-case--34994-6038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-0)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0 arg-9)) eta-0))))))) +(define REPL-Idris-case--34968-5996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-logTime 'erased arg-5 (lambda () "Build deps") (lambda (eta-1) (ModTree-Idris-buildDeps arg-5 arg-3 arg-2 arg-4 arg-1 arg-0 eta-1)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((REPLCommon-Idris-updateErrorLine arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (REPLOpts-Idris-setSource arg-1 e-2 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-0)) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0 e-5)) eta-0)))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setSource arg-1 "" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 arg-0 e-5)) eta-0)))))))))))) +(define REPL-Idris-case--34861-5915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (REPL-Idris-findCG arg-6 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-compile arg-6 e-6 e-5 arg-0 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 )) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 eta-1)) eta-2)))) e-6) eta-0)))))))))))))))) +(define REPL-Idris-case--34771-5834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (LinearCheck-Core-linearCheck (vector 0 ) arg-4 arg-3 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (REPL-Idris-findCG arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-execute arg-4 e-6 e-5 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-0)) eta-0))))))))))))))) +(define REPL-Idris-case--31225-5724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith arg-0 e-1) (vector 0 )))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not available")) eta-0))))))) +(define REPL-Idris-case--34347-5499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma arg-27 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-27 arg-0 arg-20 arg-23)) eta-0))))))) +(define REPL-Idris-case--34268-5436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma e-2 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-2 arg-0 arg-20 arg-23)) eta-0))))))))) +(define REPL-Idris-case--34064-5382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--34268-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))) +(define REPL-Idris-case--34064-5278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) +(define REPL-Idris-case--33999-5218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-pterm arg-7 arg-5 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc4 arg-10)) (cond ((equal? sc4 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-6)) (else e-6)))))) (let ((act-18 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-1 (vector 1 e-1))) ((REPL-Idris-case--34268-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 e-5 e-6 e-7 pappstr e-1 _-1 (Unlit-Parser-isLitLine e-1)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))))))))))))))))))) +(define REPL-Idris-case--31225-5167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((7) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-15 (MakeLemma-Interactive-TTImp-makeLemma arg-4 arg-7 (REPLOpts-Idris-replFC) arg-0 e-15 e-14 eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc7 e-7)) (let ((e-4 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-16 (Resugar-Idris-pterm arg-7 arg-5 e-4 eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (let ((act-17 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-10)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-11)) (else e-11)))))) (let ((act-19 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc11 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc12 e-17)) (case (vector-ref sc12 0) ((1) (let ((e-18 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-18))) ((REPL-Idris-case--34268-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-16 e-5 e-9 e-15 e-14 bind-0 e-4 e-3 _-0 e-8 e-11 e-12 pappstr e-18 _-1 (Unlit-Parser-isLitLine e-18)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))) +(define REPL-Idris-case--33585-4856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines arg-23) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-23)) eta-0))))))) +(define REPL-Idris-case--33524-4794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((l (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-15))))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-7 arg-5 e-2 l eta-1)) arg-16) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-2)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0))))))))))))))) +(define REPL-Idris-case--33462-4752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--33524-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))) +(define REPL-Idris-case--33387-4706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-2))) ((REPL-Idris-case--33524-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 e-6 _-0 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))) (else (REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0))))))) +(define REPL-Idris-case--33332-4642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-15 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-12 eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((act-16 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-8 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-3))) ((REPL-Idris-case--33524-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 bind-0 e-7 e-6 _-0 e-3 _-1 (Unlit-Parser-isLitLine e-3)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))) eta-0))))))) +(define REPL-Idris-case--31225-4596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-16 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-1))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-8 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((act-17 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-15 (vector-ref sc10 1))) (let ((_-1 (vector 1 (vector 0 e-12 e-11)))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--33524-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-13 e-5 e-9 _-0 bind-0 e-12 e-11 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int arg-1)))))) eta-0))))))) +(define REPL-Idris-case--32895-4392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-25 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-25 (vector 0 )))) eta-0))))))) +(define REPL-Idris-case--32895-4293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-24)) (else arg-24))))) +(define REPL-Idris-case--32783-4226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc3 arg-12)) (cond ((equal? sc3 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-5)) (else e-5)))))) (let ((sc3 arg-4)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))))))) +(define REPL-Idris-case--32057-4134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--32783-4226 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-0 (REPL-Idris-n--31225-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-0 (vector 0 ) arg-17)))))))) +(define REPL-Idris-case--32057-4027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0)))))))))) +(define REPL-Idris-case--32269-3906 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 arg-24 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-24 (vector 0 )))) eta-0))))))) +(define REPL-Idris-case--32269-3811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) +(define REPL-Idris-case--32151-3714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-11)) (cond ((equal? sc1 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0)))))))))))) +(define REPL-Idris-case--32057-3616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-22) (Syntax-Idris-show_Show__PTerm arg-22)) arg-21))) eta-0))) (else (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0))) (else (let ((e-2 (vector-ref sc1 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc2 arg-12)) (cond ((equal? sc2 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))) +(define REPL-Idris-case--31225-3535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((7) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-15 (ExprSearch-Interactive-TTImp-exprSearch arg-9 arg-6 arg-8 (REPLOpts-Idris-replFC) arg-2 (vector 0 ) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 7 e-12 e-13))) (vector 0 )))) (REPL-Idris-case--32057-4027 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-13 e-6 e-10 e-12 bind-0 e-5 e-8 e-9 tm (REPL-Idris-n--31225-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-12 (vector 0 ) tm)))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 arg-0)) (cond ((equal? sc9 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (Syntax-Idris-show_Show__PTerm arg-14)) e-14))) eta-0)) (else (let ((sc10 e-14)) (case (vector-ref sc10 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0)) (else (let ((e-4 (vector-ref sc10 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-12)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc11 arg-4)) (cond ((equal? sc11 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 1 e-14 (vector 0 ) (vector 1 e-22) e-17 e-18))) (vector 0 )))) (REPL-Idris-case--32057-4134 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-17 e-18 e-6 e-10 e-22 e-14 bind-0 (let ((sc7 e-14)) (let ((e-0 (vector-ref sc7 1))) e-0)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name arg-2)))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) +(define REPL-Idris-case--31863-3380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause arg-8 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-8 (vector 0 )))) eta-0))))))) +(define REPL-Idris-case--31225-3359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-1 (vector 0 )))) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not defined here"))) eta-0))))))) +(define REPL-Idris-case--31700-3256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines arg-12) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-12)) eta-0))))))) +(define REPL-Idris-case--31225-3213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (CaseSplit-IDEMode-Idris-updateCase arg-8 arg-6 arg-4 e-1 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-3)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0)))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-3))) eta-0)))))))) +(define REPL-Idris-case--31225-3137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1)) eta-0))) (else (lambda (eta-0) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-2 1) eta-0))))))) +(define REPL-Idris-case--31225-3076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-7 arg-5 arg-8 eta-1)) arg-9) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-showSep "\u000a" e-5)) eta-0)))))))))))) +(define REPL-Idris-case--31280-2993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)) arg-0) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-10 (vector 0 )))) eta-0))))))) +(define REPL-Idris-case--31280-2884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (REPL-Idris-displayTerm arg-7 arg-5 arg-8 arg-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-11) (Strings-Prelude-C-43C-43 " : " e-5)) (vector 0 )))) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))) +(define REPL-Idris-case--31225-2845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (REPL-Idris-case--31280-2884 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-9 e-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))))) (else (let ((_-0 (vector 0 ))) (REPL-Idris-case--31280-2993 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 "")))))))) +(define REPL-Idris-case--31113-2717 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 (Strings-Prelude-C-43C-43 "\u000a" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--31106-2692-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7))))))) +(define REPL-Idris-case--31040-2634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 arg-5 (Prelude-pack (List-Data-drop 'erased (Prelude-length arg-6) (Prelude-unpack arg-4))))) (else (Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--31031-2627-replaceStr arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (substring arg-4 1 (string-length arg-4))))))))) +(define REPL-Idris-case--30900-2514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile (Strings-Prelude-C-43C-43 arg-3 "~") e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (File-System-writeFile arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0)))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-5) eta-0)))))))) +(define REPL-Idris-case--30886-2494 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-readFile e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (File-System-writeFile (Strings-Prelude-C-43C-43 e-1 "~") e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (File-System-writeFile e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))) +(define REPL-Idris-case--30730-2336 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Chez-Scheme-Compiler-codegenChez)) eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Racket-Scheme-Compiler-codegenRacket)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Gambit-Scheme-Compiler-codegenGambit)) eta-0))))))) +(define REPL-Idris-case--30511-2270 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 "No such code generator available" eta-0))))))) +(define REPL-Idris-case--30511-2259 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6)))))))))) +(define REPL-Idris-case--30511-2227 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6)))))))))) +(define REPL-Idris-case--30511-2195 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6)))))))))) +(define REPL-Idris-case--30511-2163 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-0)))))) +(define REPL-Idris-case--30511-2143 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 e-2)))))) +(define REPL-Idris-case--30419-2060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayClause arg-5 arg-4 arg-3 eta-1)) e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000a" (Name-Core-showSep "\u000a" e-6)))) eta-0))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " is not a pattern matching definition")) eta-0))))))) +(define REPL-Idris-case--30037-1734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) arg-8) (else (REPL-Idris-n--29906-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8)))))) +(define REPL-Idris-case--29906-1706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envsC-39 (let ((_-0 (vector 0 e-2 e-3))) (REPL-Idris-case--30037-1734 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 _-0 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) envsC-39)) e-3)) eta-0))))))))))))) +(define REPL-Idris-case--29920-1633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (REPL-Idris-n--29906-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-11)) (else (vector 1 (vector 0 arg-9 arg-10) (REPL-Idris-n--29906-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-11))))))) +(define REPL-Idris-case--29644-1518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 arg-2 arg-12) e-2) e-3)) eta-0))))))) +(define REPL-Idris-case--29644-1434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (REPL-Idris-showCount (TT-Core-multiplicity 'erased arg-4)) (Strings-Prelude-C-43C-43 (REPL-Idris-impBracket (REPL-Idris-n--29644-1387-implicitBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-4) (Strings-Prelude-C-43C-43 (REPL-Idris-tidy arg-2) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm arg-11)))) "\u000a"))) (else ""))))) +(define REPL-Idris-case--29546-1288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))))))) +(define REPL-Idris-case--29543-1267 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (REPL-Idris-case--29546-1288 arg-0 e-3 e-4 e-5 e-6 e-2 (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))(else (vector 0 )))))) +(define REPL-Idris-case--29303-1187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))) +(define REPL-Idris-n--31031-2627-replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (REPL-Idris-case--31040-2634 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 arg-4 (Strings-Data-isPrefixOf arg-4 arg-6))))))) +(define REPL-Idris-n--36825-7752-prompt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "[tc] ") ((1) "") (else "[exec] "))))) +(define REPL-Idris-n--35129-6122-nfun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normaliseAll arg-6 eta-0 eta-1 eta-2 eta-3))))))(else (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normalise arg-6 eta-0 eta-1 eta-2 eta-3)))))))))) +(define REPL-Idris-n--36844-8091-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ ))))) +(define REPL-Idris-n--31106-2692-insertInBlank (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (Unlit-Parser-relit arg-6 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--31113-2717 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) ""))))))))) +(define REPL-Idris-n--29644-1387-implicitBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) 1)(else 0))))) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) 1)(else 0)))))(else 1))))) +(define REPL-Idris-n--36628-7527-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Prelude-substr arg-1 (Prelude-length arg-3) arg-3)))))) +(define REPL-Idris-n--36628-7528-fnameCmd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--36631-7553 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2)))))))))))) +(define REPL-Idris-n--35129-6121-emode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (vector 2 )))))) +(define REPL-Idris-n--29906-1600-dropShadows (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--29920-1633 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-6 e-7 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-3))))))))))))) +(define REPL-Idris-n--31225-3453-dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (vector 0 arg-10 (vector 0 arg-12 arg-13)))(else (let ((e-0 (- arg-11 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (REPL-Idris-n--31225-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-3 arg-10) e-0 (vector 1 e-4 arg-12) e-5)))))(else (vector 0 arg-10 (vector 0 arg-12 arg-13))))))))))) +(define REPL-Idris-n--36844-8092-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (REPL-Idris-n--36844-8091-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--36844-8091-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4)))))) +(define REPL-Idris-n--36844-8093-cmdInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 " " (REPL-Idris-n--36844-8092-col (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))) (Name-Core-showSep " " e-2) (Parser-Idris-show_Show__CmdArg e-6) e-7)))))))))) +(define REPL-Idris-n--31106-2693-addApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--31106-2692-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8)) arg-9))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-n--31106-2693-addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (vector 1 e-2 arg-8) e-3)))) (else (List-Data-reverse 'erased arg-8)))))))))) +(define REPL-Idris-updateFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--30886-2494 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0)))))))) (define REPL-Idris-tidy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) e-0))(else (Name-Core-show_Show__Name arg-0)))))) (define REPL-Idris-showName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "_") 1)(else 0))))) ((2) 1)(else 0))))) -(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Def arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Def arg-4526 arg-4527)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (PrimIO-putStrLn (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Erasable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Detaggable arg types: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Specialise args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-20 (let ((act-20 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Inferrable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-21 ((REPL-Idris-case--29302-1187 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (let ((act-22 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersTo e-7))) eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-23 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0))))))))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (let ((act-23 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersToRuntime e-7))) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to (runtime): " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0))))))))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Flags: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-4524 arg-4525 eta-3)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-4526 arg-4527 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((sc13 (Prelude-not (List-Data-isNil 'erased (let ((sc14 e-7)) (let ((e-20 (vector-ref sc14 21))) e-20)))))) (cond ((equal? sc13 0) (((let ((scinfo (Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-26 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-26) eta-1)))))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define REPL-Idris-showHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 ((REPL-Idris-showEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-16 (Context-Core-getPPrint arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((envsC-39 (let ((_-0 (vector 0 e-2 e-3))) (REPL-Idris-case--30036-1734 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) envsC-39)) e-3)) ext-0))))))))))))))))) -(define REPL-Idris-showEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (Strings-Prelude-C-43C-43 "-------------------------------------\u000a" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))))) eta-0))))))))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 2))) (REPL-Idris-showEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-0 (SubstEnv-TT-Core-subst arg-0 e-3 e-8 e-5))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 (TT-Core-binderType 'erased e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-6 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((pre (REPL-Idris-case--29643-1434 arg-0 e-0 e-3 e-5 e-4 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (REPL-Idris-showName e-3)))) (let ((act-16 ((REPL-Idris-showEnv (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 (vector 1 e-4 arg-4) arg-5 e-0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 e-3 pre) e-9) e-8)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0)))))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (Strings-Prelude-C-43C-43 "-------------------------------------\u000a" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))))) eta-0)))))))))))))))) +(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Def arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Def arg-4526 arg-4527)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (PrimIO-putStrLn (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Erasable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Detaggable arg types: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Specialise args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-20 (let ((act-20 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Inferrable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-21 ((REPL-Idris-case--29303-1187 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (let ((act-22 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersTo e-7))) eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-23 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0))))))))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (let ((act-23 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersToRuntime e-7))) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to (runtime): " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0))))))))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Flags: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-4524 arg-4525 eta-3)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-4526 arg-4527 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((sc13 (Prelude-not (List-Data-isNil 'erased (let ((sc14 e-7)) (let ((e-20 (vector-ref sc14 21))) e-20)))))) (cond ((equal? sc13 0) (((let ((scinfo (Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-26 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-26) eta-1)))))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define REPL-Idris-showHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 ((REPL-Idris-showEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-16 (Context-Core-getPPrint arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((envsC-39 (let ((_-0 (vector 0 e-2 e-3))) (REPL-Idris-case--30037-1734 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) envsC-39)) e-3)) ext-0))))))))))))))))) +(define REPL-Idris-showEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (Strings-Prelude-C-43C-43 "-------------------------------------\u000a" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))))) eta-0))))))))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 2))) (REPL-Idris-showEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-0 (SubstEnv-TT-Core-subst arg-0 e-3 e-8 e-5))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 (TT-Core-binderType 'erased e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-6 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((pre (REPL-Idris-case--29644-1434 arg-0 e-0 e-3 e-5 e-4 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (REPL-Idris-showName e-3)))) (let ((act-16 ((REPL-Idris-showEnv (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 (vector 1 e-4 arg-4) arg-5 e-0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 e-3 pre) e-9) e-8)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0)))))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (Strings-Prelude-C-43C-43 "-------------------------------------\u000a" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))))) eta-0)))))))))))))))) (define REPL-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) " 0 " " 1 " (lambda (eta-0) " ") ext-0))) -(define REPL-Idris-setOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2)))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-0 e-3 e-1)))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-2 e-1 e-8 e-3 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-3 e-2 e-8 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-Idris-case--30510-2270 e-5 arg-1 arg-0 (Options-Core-getCG e-5)))))))) +(define REPL-Idris-setOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2)))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-0 e-3 e-1)))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-2 e-1 e-8 e-3 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-3 e-2 e-8 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-Idris-case--30511-2270 e-5 arg-1 arg-0 (Options-Core-getCG e-5)))))))) (define REPL-Idris-rtrim (lambda (arg-0) (Prelude-reverse (Strings-Data-ltrim (Prelude-reverse arg-0))))) (define REPL-Idris-replCmd (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 "") (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0)))))))))))) -(define REPL-Idris-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (PrimIO-putStr (Strings-Prelude-C-43C-43 (REPL-Idris-n--36824-7752-prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> ")) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (let ((act-18 (PrimIO-getLine ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((act-19 (File-System-fEOF (File-System-stdin) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-20 (let ((act-20 (PrimIO-putStrLn "" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" ext-0)))))) (else (let ((act-20 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 e-8) ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0))))))))))))))))))))))))))))))))))) -(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--31030-2627-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-0)) arg-1 e-3) e-4))))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-proofSearch arg-0 arg-1 e-1 e-7)))))(else (let ((sc0 arg-3)) (vector 0 ))))))))))) -(define REPL-Idris-processEdit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-showSep "\u000a" e-7)) eta-0))))))))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Metadata-Core-findTypeAt arg-3 (lambda (p) (lambda (n) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int e-0 1) (Prelude-C-45_Neg__Int e-1 1)) p))) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((_-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) ((REPL-Idris-case--31279-2884 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-10 e-12 e-11 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))) (else (let ((_-0 (vector 0 ))) ((REPL-Idris-case--31279-2993 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((find (REPL-Idris-case--31224-3137 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-C-62_Ord__Int e-5 (Prelude-fromInteger_Num__Int 0))))) (lambda (eta-0) (let ((act-15 (CaseSplit-Interactive-TTImp-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (REPL-Idris-anyAt 'erased find eta-1 eta-2))) e-6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-16 (CaseSplit-IDEMode-Idris-updateCase arg-0 arg-2 arg-4 e-1 (Prelude-C-45_Neg__Int e-4 1) (Prelude-C-45_Neg__Int e-5 1) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-3)) (cond ((equal? sc4 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-8) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-4 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-8)) eta-0))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-8))) eta-0))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (CaseSplit-IDEMode-Idris-getClause arg-0 arg-3 arg-4 e-8 e-9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer e-8) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-1 (vector 0 )))) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) " not defined here"))) eta-0)))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-12 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-17 (Context-Core-lookupDefName e-12 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((7) (let ((e-18 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((0) (let ((act-18 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-20 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-20 (vector 0 ) eta-1 eta-2))) e-19) eta-0))) (let ((sc11 act-20)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 7 e-18 e-17))) (vector 0 )))) (REPL-Idris-case--32056-4027 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-9 e-16 e-18 bind-0 e-19 e-20 e-21 tm (REPL-Idris-n--31224-3453-dropLams e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-18 (vector 0 ) tm)))) e-21) eta-0))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-22 (vector-ref sc12 1))) (let ((sc13 e-14)) (cond ((equal? sc13 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-6) (Syntax-Idris-show_Show__PTerm arg-6)) e-22))) eta-0)) (else (let ((sc14 e-22)) (case (vector-ref sc14 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0)) (else (let ((e-4 (vector-ref sc14 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc15 e-10)) (cond ((equal? sc15 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch e-12 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-11 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0)))))))))))))))))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-20 (vector-ref sc7 2))) (let ((e-19 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 1 e-21 (vector 0 ) (vector 1 e-22) e-17 e-18))) (vector 0 )))) ((REPL-Idris-case--32056-4134 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-18 e-9 e-16 e-22 e-21 bind-0 (let ((sc11 e-21)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name e-12)))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((act-17 (Context-Core-lookupDefExact e-9 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-18 (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) e-9 eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-19 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((act-19 (REPLOpts-Idris-getSourceLine arg-4 e-16 eta-1))) (let ((sc13 act-19)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-20 (vector-ref sc13 1))) (let ((_-1 (vector 1 (vector 0 e-19 e-18)))) (let ((sc14 e-20)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--33523-4794 e-17 e-16 e-15 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-14 e-13 e-8 e-9 _-0 bind-0 e-19 e-18 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-15 e-16 e-17)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-17)))) eta-0))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int e-16)))))) eta-0))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-20 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-17 (REPL-Idris-lookupDefTyName e-20 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (let ((act-18 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-replFC) e-20 e-15 e-14 eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-11 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc11 e-12)) (let ((e-4 (vector-ref sc11 1))) (let ((e-3 (vector-ref sc11 2))) (let ((act-19 (Resugar-Idris-pterm arg-0 arg-2 e-4 eta-0))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-20 (Resugar-Idris-pterm arg-0 arg-2 e-3 eta-0))) (let ((sc13 act-20)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc14 act-21)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc14 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-21)) (else e-21)))))) (let ((act-22 (REPLOpts-Idris-getSourceLine arg-4 e-19 eta-0))) (let ((sc15 act-22)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc16 e-23)) (case (vector-ref sc16 0) ((1) (let ((e-24 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-24))) ((REPL-Idris-case--34267-5436 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 pappstr e-24 _-1 (Unlit-Parser-isLitLine e-24)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))))))))))))))))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))))))))))))))))))) ((6) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not implemented yet")) eta-0))) (else (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-getSourceLine arg-4 e-25 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith e-26 e-1) (vector 0 )))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not available")) eta-0))))))))))))))))) +(define REPL-Idris-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (PrimIO-putStr (Strings-Prelude-C-43C-43 (REPL-Idris-n--36825-7752-prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> ")) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (let ((act-18 (PrimIO-getLine ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((act-19 (File-System-fEOF (File-System-stdin) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-20 (let ((act-20 (PrimIO-putStrLn "" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" ext-0)))))) (else (let ((act-20 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 e-8) ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0))))))))))))))))))))))))))))))))))) +(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--31031-2627-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-0)) arg-1 e-3) e-4))))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-proofSearch arg-0 arg-1 e-1 e-7)))))(else (let ((sc0 arg-3)) (vector 0 ))))))))))) +(define REPL-Idris-processEdit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-showSep "\u000a" e-7)) eta-0))))))))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Metadata-Core-findTypeAt arg-3 (lambda (p) (lambda (n) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int e-0 1) (Prelude-C-45_Neg__Int e-1 1)) p))) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((_-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) ((REPL-Idris-case--31280-2884 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-10 e-12 e-11 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))) (else (let ((_-0 (vector 0 ))) ((REPL-Idris-case--31280-2993 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((find (REPL-Idris-case--31225-3137 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-C-62_Ord__Int e-5 (Prelude-fromInteger_Num__Int 0))))) (lambda (eta-0) (let ((act-15 (CaseSplit-Interactive-TTImp-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (REPL-Idris-anyAt 'erased find eta-1 eta-2))) e-6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-16 (CaseSplit-IDEMode-Idris-updateCase arg-0 arg-2 arg-4 e-1 (Prelude-C-45_Neg__Int e-4 1) (Prelude-C-45_Neg__Int e-5 1) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-3)) (cond ((equal? sc4 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-8) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-4 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-8)) eta-0))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-8))) eta-0))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (CaseSplit-IDEMode-Idris-getClause arg-0 arg-3 arg-4 e-8 e-9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer e-8) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-1 (vector 0 )))) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) " not defined here"))) eta-0)))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-12 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-17 (Context-Core-lookupDefName e-12 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((7) (let ((e-18 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((0) (let ((act-18 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-20 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-20 (vector 0 ) eta-1 eta-2))) e-19) eta-0))) (let ((sc11 act-20)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 7 e-18 e-17))) (vector 0 )))) (REPL-Idris-case--32057-4027 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-9 e-16 e-18 bind-0 e-19 e-20 e-21 tm (REPL-Idris-n--31225-3453-dropLams e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-18 (vector 0 ) tm)))) e-21) eta-0))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-22 (vector-ref sc12 1))) (let ((sc13 e-14)) (cond ((equal? sc13 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-6) (Syntax-Idris-show_Show__PTerm arg-6)) e-22))) eta-0)) (else (let ((sc14 e-22)) (case (vector-ref sc14 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0)) (else (let ((e-4 (vector-ref sc14 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc15 e-10)) (cond ((equal? sc15 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch e-12 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-11 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0)))))))))))))))))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-20 (vector-ref sc7 2))) (let ((e-19 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 1 e-21 (vector 0 ) (vector 1 e-22) e-17 e-18))) (vector 0 )))) ((REPL-Idris-case--32057-4134 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-18 e-9 e-16 e-22 e-21 bind-0 (let ((sc11 e-21)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name e-12)))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((act-17 (Context-Core-lookupDefExact e-9 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-18 (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) e-9 eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-19 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((act-19 (REPLOpts-Idris-getSourceLine arg-4 e-16 eta-1))) (let ((sc13 act-19)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-20 (vector-ref sc13 1))) (let ((_-1 (vector 1 (vector 0 e-19 e-18)))) (let ((sc14 e-20)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--33524-4794 e-17 e-16 e-15 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-14 e-13 e-8 e-9 _-0 bind-0 e-19 e-18 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-15 e-16 e-17)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-17)))) eta-0))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int e-16)))))) eta-0))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-20 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-17 (REPL-Idris-lookupDefTyName e-20 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (let ((act-18 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-replFC) e-20 e-15 e-14 eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-11 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc11 e-12)) (let ((e-4 (vector-ref sc11 1))) (let ((e-3 (vector-ref sc11 2))) (let ((act-19 (Resugar-Idris-pterm arg-0 arg-2 e-4 eta-0))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-20 (Resugar-Idris-pterm arg-0 arg-2 e-3 eta-0))) (let ((sc13 act-20)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc14 act-21)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc14 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-21)) (else e-21)))))) (let ((act-22 (REPLOpts-Idris-getSourceLine arg-4 e-19 eta-0))) (let ((sc15 act-22)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc16 e-23)) (case (vector-ref sc16 0) ((1) (let ((e-24 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-24))) ((REPL-Idris-case--34268-5436 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 pappstr e-24 _-1 (Unlit-Parser-isLitLine e-24)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))))))))))))))))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))))))))))))))))))) ((6) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not implemented yet")) eta-0))) (else (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-getSourceLine arg-4 e-25 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith e-26 e-1) (vector 0 )))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not available")) eta-0))))))))))))))))) (define REPL-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (Context-Core-branch arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (Context-Core-commit arg-0 eta-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-10) eta-0))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-0 e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-1 e-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-2 e-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-writeIORef 'erased arg-4 e-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-23 (Error-Idris-display arg-0 arg-2 err eta-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-13)) eta-0)))))))))))))))))))))))) ext-0))))))))))))))))))))))) -(define REPL-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35128-6157 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-16 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-15 e-16) eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) e-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-2 eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (let ((act-21 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-9 e-11)) eta-0))))))))))))))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-2) eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7)) eta-0)))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35128-6688 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((4) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 (vector 1 e-3) e-8 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-3 eta-0))))))))))))) ((13) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setWorkingDir arg-0 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Context-Core-getWorkingDir eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-6)) eta-0))))))))))))) ((14) (lambda (eta-0) (let ((act-15 (Context-Core-getWorkingDir eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-5)) eta-0)))))))) ((5) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35128-6804 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 eta-0))))) ((7) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 e-7 eta-0)))) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyName e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-17 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-9 e-11 (vector 0 ) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-18 (let ((act-18 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-12 eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-13)) eta-0))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-8) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((15) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-9) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 15 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 e-6)) ((REPL-Idris-case--36101-7073 e-9 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((16) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-10 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 16 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-18 (let ((act-18 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Totality arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Totality arg-4526 arg-4527)))) e-8 eta-1)))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 fn e-8)) eta-1)))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((10) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Context-Core-lookupCtxtName e-11 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-setOpt arg-0 arg-4 e-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((12) (lambda (eta-0) (let ((act-15 (REPL-Idris-getOptions arg-0 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 e-5)) eta-0)))))))) ((17) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setLogLevel arg-0 e-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 e-13)) eta-0)))))))) ((18) (lambda (eta-0) (let ((act-15 (Context-Core-getUserHoles arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 17 e-5)) eta-0)))))))) ((19) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 1 e-2)))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 22 e-7)) eta-0)))))))))))))))))))))) ((21) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 )) eta-0))) ((22) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 (Version-Idris-version))) eta-0))))))) +(define REPL-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35129-6157 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-16 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-15 e-16) eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) e-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-2 eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (let ((act-21 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-9 e-11)) eta-0))))))))))))))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-2) eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7)) eta-0)))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35129-6688 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((4) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 (vector 1 e-3) e-8 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-3 eta-0))))))))))))) ((13) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setWorkingDir arg-0 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Context-Core-getWorkingDir eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-6)) eta-0))))))))))))) ((14) (lambda (eta-0) (let ((act-15 (Context-Core-getWorkingDir eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-5)) eta-0)))))))) ((5) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35129-6804 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 eta-0))))) ((7) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 e-7 eta-0)))) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyName e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-17 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-9 e-11 (vector 0 ) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-18 (let ((act-18 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-12 eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-13)) eta-0))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-8) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((15) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-9) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 15 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 e-6)) ((REPL-Idris-case--36102-7073 e-9 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((16) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-10 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 16 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-18 (let ((act-18 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Totality arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Totality arg-4526 arg-4527)))) e-8 eta-1)))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 fn e-8)) eta-1)))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((10) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Context-Core-lookupCtxtName e-11 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-setOpt arg-0 arg-4 e-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((12) (lambda (eta-0) (let ((act-15 (REPL-Idris-getOptions arg-0 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 e-5)) eta-0)))))))) ((17) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setLogLevel arg-0 e-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 e-13)) eta-0)))))))) ((18) (lambda (eta-0) (let ((act-15 (Context-Core-getUserHoles arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 17 e-5)) eta-0)))))))) ((19) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 1 e-2)))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 22 e-7)) eta-0)))))))))))))))))))))) ((21) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 )) eta-0))) ((22) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 (Version-Idris-version))) eta-0))))))) (define REPL-Idris-printClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-pterm arg-0 arg-1 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-pterm arg-0 arg-1 e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-6)))))) eta-0))))))))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-pterm arg-0 arg-1 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-pterm arg-0 arg-1 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat arg-3 (+ 1 (+ 1 0))) eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-7) (Strings-Prelude-C-43C-43 " with (" (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) ")\u000a"))))) (Name-Core-showSep "\u000a" e-9))) eta-0))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-pterm arg-0 arg-1 e-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) " impossible")))) eta-0))))))))))))) -(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--36627-7609 arg-0 (REPL-Idris-n--36627-7528-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 4 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 4 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 13 eta-0))) (vector 0 )))) arg-0)))) +(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--36628-7609 arg-0 (REPL-Idris-n--36628-7528-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 4 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 4 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 13 eta-0))) (vector 0 )))) arg-0)))) (define REPL-Idris-parseEmptyCmd (lambda () (Core-Parser-Text-C-42C-62 'erased 'erased 'erased 1 1 (Source-Rule-Parser-eoi) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))) (define REPL-Idris-parseCmd (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-command)) (lambda (c) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-7517) (Core-Parser-Text-pure 'erased 'erased (vector 1 c)))))))) (define REPL-Idris-lookupDefTyName (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupNameBy 'erased (lambda (g) (vector 0 (let ((sc0 g)) (let ((e-17 (vector-ref sc0 18))) e-17)) (let ((sc0 g)) (let ((e-2 (vector-ref sc0 3))) e-2)))) ext-2 ext-1 ext-0))) (define REPL-Idris-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (REPLCommon-Idris-resetContext arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (let ((act-16 (File-System-readFile arg-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-17 (Context-Core-logTime 'erased arg-0 (lambda () "Build deps") (lambda (eta-0) (ModTree-Idris-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((REPLCommon-Idris-updateErrorLine arg-4 e-7) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-19 (REPLOpts-Idris-setSource arg-4 e-2 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-5)) ext-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-5 e-7)) ext-0))))))))))))))))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-17 (REPLOpts-Idris-setSource arg-4 "" ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 arg-5 e-7)) ext-0)))))))))))))))))))) -(define REPL-Idris-isHole (lambda (arg-0) (REPL-Idris-case--29542-1267 arg-0 (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))) -(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--36731-7642 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5)))) +(define REPL-Idris-isHole (lambda (arg-0) (REPL-Idris-case--29543-1267 arg-0 (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))) +(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--36732-7642 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5)))) (define REPL-Idris-impBracket (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 arg-1 "}"))))))) (define REPL-Idris-handleResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((21) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" eta-0)))(else (lambda (eta-0) (let ((act-15 ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-Idris-repl arg-0 arg-1 arg-2 arg-3 arg-4 eta-0))))))))))) (define REPL-Idris-handleMissing (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3))))))))))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-4) ": All cases covered"))))))) (define REPL-Idris-getOptions (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) (vector 1 (vector 2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 3 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (vector 1 (vector 4 (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4))) (vector 0 ))))))) ext-0))))))))))))) -(define REPL-Idris-findCG (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--30729-2336 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0)))))))) +(define REPL-Idris-findCG (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--30730-2336 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0)))))))) (define REPL-Idris-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) arg-4) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-6 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-18 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (REPL-Idris-findCG arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-execute arg-0 e-9 e-8 ext-0)))))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-4)) ext-0))))))))))))))))))))))))))))) (define REPL-Idris-displayType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))) eta-0)))))))) (lambda () (lambda (num) (lambda (eta-0) (REPL-Idris-showHole (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) e-2 num (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0)))) (REPL-Idris-isHole e-7))))))))) (define REPL-Idris-displayTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 ext-0)))))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Syntax-Idris-show_Show__PTerm e-5)) ext-0)))))))) (define REPL-Idris-displayResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-1) eta-0))) ((1) (let ((e-23 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-23))) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" e-3) eta-0)))) ((6) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-4) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Loaded file " e-6) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-8)))) eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error(s) building file " e-9) eta-0)))) ((10) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "No file can be reloaded" eta-0))) ((11) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-11 "'")) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "Compilation failed" eta-0))) ((13) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-12 " written")) eta-0)))) ((14) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-13) eta-0)))) ((15) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-14)) eta-0)))) ((16) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-15)) eta-0)))) ((17) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 "No holes" eta-0))) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "1 hole: " (Name-Core-show_Show__Name e-26)) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-16)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-16)))) eta-0))))))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-16)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-16)))) eta-0))))))) ((19) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-17)) eta-0)))) ((20) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Version-Idris-showVersion 0 e-18) eta-0)))) ((3) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (REPL-Idris-displayHelp) eta-0))) ((22) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 1))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" e-29) eta-0))))))) ((1) (let ((e-30 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-30 eta-0)))) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-31 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-33) "\u000a")))) e-34) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) ((18) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Syntax-Idris-show_Show__REPLOpt eta-1)) e-20)) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define REPL-Idris-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--30418-2060 e-2 e-6 e-7 arg-2 arg-1 arg-0 (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))))))))))) +(define REPL-Idris-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--30419-2060 e-2 e-6 e-7 arg-2 arg-1 arg-0 (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))))))))))) (define REPL-Idris-displayPatTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugarNoPatvars (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 ext-0)))))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Syntax-Idris-show_Show__PTerm e-5)) ext-0)))))))) -(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--36843-8093-cmdInfo eta-0)) (Parser-Idris-help))))) +(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--36844-8093-cmdInfo eta-0)) (Parser-Idris-help))))) (define REPL-Idris-displayErrors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-1)))) eta-0)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) (define REPL-Idris-displayClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-10 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-5 eta-0)))))))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-11 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-8 eta-0)))))))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-8)))) eta-0))))))))))))))))))))))) (define REPL-Idris-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-15 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) arg-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-18 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (REPL-Idris-findCG arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-compile arg-0 e-9 e-8 arg-6 ext-0)))))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 )) eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 eta-0)) eta-1)))) e-9) ext-0)))))))))))))))))))))))))))))) (define REPL-Idris-caseSplit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-rtrim arg-0) e-4)))(else (let ((sc1 arg-2)) (vector 1 arg-0 (vector 0 )))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-caseSplit arg-0 e-1 e-7)))))(else (let ((sc0 arg-2)) (vector 1 arg-0 (vector 0 )))))))))))) (define REPL-Idris-anyAt (lambda (arg-0 arg-1 arg-2 arg-3) (arg-1 arg-2))) -(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--31105-2693-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5)))) +(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--31106-2693-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5)))) (define REPL-Idris-addClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (REPL-Idris-rtrim arg-0) arg-2))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (REPL-Idris-addClause arg-0 e-0 e-3))))) (else (vector 1 arg-0 (vector 0 ))))))))))) (define Stream-Data-repeat (lambda (arg-0 arg-1) (vector 0 arg-1 (lambda () (Stream-Data-repeat 'erased arg-1))))) (define MakeLemma-Interactive-TTImp-case--13767-16625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-3 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-3 arg-2 e-2))) eta-0))))))) @@ -6407,7 +6406,7 @@ (define Interface-Elab-Idris-n--24287-21204-elabAsData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethDecl 'erased arg-6 arg-14 arg-8 arg-7 arg-3 arg-16 eta-0)) arg-17) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Method declarations: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-5))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethDecl 'erased arg-6 arg-14 arg-8 arg-7 arg-3 arg-16 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (c) (vector 0 arg-10 (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) c)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--24309-21239-notData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-17 arg-16 arg-15 'erased 'erased eta-0)) arg-5))) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-7))) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 ((Interface-Elab-Idris-mkIfaceData arg-6 arg-14 arg-10 arg-9 arg-8 e-7 arg-4 arg-15 arg-3 arg-2 e-5) ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-5))) ext-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making interface data type " (TTImp-TTImp-show_Show__ImpDecl e-9))) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-22 (ProcessDecls-TTImp-processDecls arg-6 arg-14 arg-11 arg-13 arg-7 arg-8 (vector 1 e-9 (vector 0 )) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))))))))))))))))))))))))))))) (define Interface-Elab-Idris-n--23921-20867-constName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (vector 1 (Interface-Elab-Idris-n--23921-20866-bindName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12)))) (define Interface-Elab-Idris-n--24311-21535-changeNameTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Interface-Elab-Idris-case--24633-21560 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-1 e-0 arg-20 (Name-Core-C-61C-61_Eq__Name arg-17 e-1))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 8 e-2 (Interface-Elab-Idris-n--24311-21535-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-3) e-4))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (Interface-Elab-Idris-n--24311-21535-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-6) e-7 e-8))))))(else arg-21))))) -(define Interface-Elab-Idris-n--24311-21536-changeName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 (Interface-Elab-Idris-n--24311-21535-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-1) e-2))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 2 e-3 (Interface-Elab-Idris-n--24311-21535-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-4)))))(else (Builtin-idris_crash 'erased "Unhandled input for Idris.Elab.Interface.24311:21536:changeName at Idris/Elab/Interface.idr:396:9--398:9")))))) +(define Interface-Elab-Idris-n--24311-21536-changeName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 (Interface-Elab-Idris-n--24311-21535-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-1) e-2))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 2 e-3 (Interface-Elab-Idris-n--24311-21535-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-4)))))(else (Builtin-idris_crash 'erased "Unhandled input for Idris.Elab.Interface.24311:21536:changeName at src/Idris/Elab/Interface.idr:396:9--398:9")))))) (define Interface-Elab-Idris-n--23055-20076-bname (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (vector 1 e-2) (vector 0 e-6 (vector 15 (TTImp-TTImp-getFC e-7) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7))))))))))) (define Interface-Elab-Idris-n--23610-20597-bindPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-getFC e-7) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) e-7 (Interface-Elab-Idris-n--23610-20597-bindPs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-3 arg-16)))))))))))) (define Interface-Elab-Idris-n--23921-20866-bindName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "__bind_" e-0))) ((0) (let ((e-2 (vector-ref sc0 2))) (Interface-Elab-Idris-n--23921-20866-bindName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2)))(else (Name-Core-show_Show__Name arg-12)))))) @@ -6806,17 +6805,18 @@ (define Common-Scheme-Compiler-getScheme (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Common-Scheme-Compiler-schDef arg-1 arg-2 arg-0 e-2 e-7)))))))) (define Common-Scheme-Compiler-firstExists (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Common-Compiler-exists e-2 eta-0))) (let ((sc1 act-15)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (vector 1 e-2) eta-0)) (else ((Common-Scheme-Compiler-firstExists e-3) eta-0))))))))))))) (define Common-Scheme-Compiler-boolop (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "(or (and " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-op arg-0 arg-1) " 1) 0)")))) -(define Racket-Scheme-Compiler-case--15723-11991 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (System-system e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0))))))) -(define Racket-Scheme-Compiler-case--15154-11880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Build racket") (lambda (eta-1) (let ((act-15 (System-system (Strings-Prelude-C-43C-43 arg-16 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 arg-14 (Strings-Prelude-C-43C-43 " " arg-13)))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-1))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))) -(define Racket-Scheme-Compiler-case--15360-11759 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-19 arg-5 arg-12 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11 eta-0))))))) -(define Racket-Scheme-Compiler-case--15280-11674 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (Racket-Scheme-Compiler-makeShWindows arg-19 arg-5 arg-12)) (else (let ((sc1 arg-4)) (cond ((equal? sc1 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-19 arg-5 arg-12 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11 eta-0)))))))))) -(define Racket-Scheme-Compiler-case--15154-11608 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (let ((outShRel (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-0)))) (lambda (eta-0) (let ((act-15 ((Racket-Scheme-Compiler-case--15280-11674 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 outShRel (Options-Core-isWindows)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (File-System-chmodRaw outShRel (Prelude-fromInteger_Num__Int 493) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 outShRel)) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Racket-Scheme-Compiler-case--15154-11525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) ".exe") (else ""))))) -(define Racket-Scheme-Compiler-case--15134-11499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--15154-11525 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (Prelude-C-61C-61_Eq__String (Info-System-os) "windows"))))) (let ((outRktFile (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-0 ".rkt"))))) (let ((outBinFile (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-0 ext))))) (let ((outRktAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outRktFile)))))) (let ((outBinAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outBinFile)))))) (lambda (eta-0) (let ((act-15 (Racket-Scheme-Compiler-compileToRKT arg-3 arg-6 arg-1 outRktAbs eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Racket-Scheme-Compiler-findRacoExe eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (Racket-Scheme-Compiler-findRacket eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((sc4 arg-4)) (cond ((equal? sc4 0) (Context-Core-logTime 'erased arg-3 (lambda () "Build racket") (lambda (eta-1) (let ((act-18 (System-system (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs)))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--15154-11608 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-5 e-6 e-7 e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0)))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) -(define Racket-Scheme-Compiler-case--15054-11430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0)))))))) -(define Racket-Scheme-Compiler-case--15042-11409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile arg-2 (Racket-Scheme-Compiler-startRacketWinSh arg-1 arg-0) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-6) eta-0)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-5) eta-0)))))))) -(define Racket-Scheme-Compiler-case--14995-11367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0)))))))) -(define Racket-Scheme-Compiler-case--14770-11246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-chmodRaw arg-0 (Prelude-fromInteger_Num__Int 493) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) +(define Racket-Scheme-Compiler-case--15831-12078 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (System-system e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0))))))) +(define Racket-Scheme-Compiler-case--15169-11967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Build racket") (lambda (eta-1) (let ((act-15 (System-system (Strings-Prelude-C-43C-43 arg-16 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 arg-14 (Strings-Prelude-C-43C-43 " " arg-13)))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-1))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))) +(define Racket-Scheme-Compiler-case--15369-11846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-19 arg-5 arg-12 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11 eta-0))))))) +(define Racket-Scheme-Compiler-case--15369-11725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Racket-Scheme-Compiler-makeShWindows "" arg-19 arg-5 arg-12)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11)))))) +(define Racket-Scheme-Compiler-case--15291-11681 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (Racket-Scheme-Compiler-makeShWindows "" arg-19 arg-5 arg-12)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11))))) (else (let ((sc1 arg-4)) (cond ((equal? sc1 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-19 arg-5 arg-12 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11 eta-0)))))))))) +(define Racket-Scheme-Compiler-case--15169-11617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (let ((outShRel (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-0)))) (lambda (eta-0) (let ((act-15 ((Racket-Scheme-Compiler-case--15291-11681 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 outShRel (Options-Core-isWindows)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (File-System-chmodRaw outShRel (Prelude-fromInteger_Num__Int 493) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 outShRel)) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Racket-Scheme-Compiler-case--15169-11534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) ".exe") (else ""))))) +(define Racket-Scheme-Compiler-case--15149-11512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--15169-11534 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (Options-Core-isWindows))))) (let ((outRktFile (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-0 ".rkt"))))) (let ((outBinFile (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-0 ext))))) (let ((outRktAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outRktFile)))))) (let ((outBinAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outBinFile)))))) (lambda (eta-0) (let ((act-15 (Racket-Scheme-Compiler-compileToRKT arg-3 arg-6 arg-1 outRktAbs eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Racket-Scheme-Compiler-findRacoExe eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (Racket-Scheme-Compiler-findRacket eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((sc4 arg-4)) (cond ((equal? sc4 0) (Context-Core-logTime 'erased arg-3 (lambda () "Build racket") (lambda (eta-1) (let ((act-18 (System-system (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs)))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--15169-11617 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-5 e-6 e-7 e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0)))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Racket-Scheme-Compiler-case--15059-11437 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0)))))))) +(define Racket-Scheme-Compiler-case--15046-11414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile arg-2 (Racket-Scheme-Compiler-startRacketWinSh arg-3 arg-1 arg-0) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-6) eta-0)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0)))))))) +(define Racket-Scheme-Compiler-case--14999-11371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0)))))))) +(define Racket-Scheme-Compiler-case--14774-11250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-chmodRaw arg-0 (Prelude-fromInteger_Num__Int 493) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) (define Racket-Scheme-Compiler-case--14512-10960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__Name (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) arg-13) (Strings-Prelude-C-43C-43 arg-14 e-2)) (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-6) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-11)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\u000a")))))))) eta-0))))))))))))))))) (define Racket-Scheme-Compiler-case--14378-10822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) arg-3)) eta-0))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-2 (vector 1 arg-1 arg-4) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--14378-10779-showFld arg-0 arg-1 arg-2 eta-1)) arg-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-cstruct _" (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\u000a\u0009" e-6) "))\u000a")))))) eta-0)))))))))))))))) (define Racket-Scheme-Compiler-case--14141-10577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-15 ((Racket-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 "" e-7)) eta-0))))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2 eta-0))) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2 eta-0)))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))) @@ -6840,8 +6840,8 @@ (define Racket-Scheme-Compiler-n--13465-9974-callback (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--13465-9974-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-0 arg-10) e-1))))(else (let ((args (List-Data-reverse 'erased arg-10))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-cftySpec arg-4 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--13465-9973-notWorld arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-1)) args)) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Racket-Scheme-Compiler-cftySpec arg-4 arg-11) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Racket-Scheme-Compiler-n--13465-9972-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 args arg-11 arg-9)) eta-0)))))))))))))))) (define Racket-Scheme-Compiler-n--13465-9971-applyLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) arg-9) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Racket-Scheme-Compiler-n--13465-9971-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-9 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Racket-Scheme-Compiler-n--13465-9971-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-cToRkt e-10 e-9) ")")))) e-3))))))))))))))) (define Racket-Scheme-Compiler-useCC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Racket-Scheme-Compiler-case--14141-10577 e-2 e-3 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2))))))))) -(define Racket-Scheme-Compiler-startRacketWinSh (lambda (arg-0 arg-1) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "DIR=\"`realpath \"$0\"`\"" (vector 1 (Strings-Prelude-C-43C-43 "export PATH=\"`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-0 "\":$PATH\"")) (vector 1 (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 arg-1 "\" \"$@\"")) (vector 0 )))))))) -(define Racket-Scheme-Compiler-startRacketCmd (lambda (arg-0 arg-1) (Strings-Data-unlines (vector 1 "@echo off" (vector 1 "set APPDIR=%~dp0" (vector 1 (Strings-Prelude-C-43C-43 "set PATH=%APPDIR%\\" (Strings-Prelude-C-43C-43 arg-0 ";%PATH%")) (vector 1 (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 arg-1 "\" %*")) (vector 0 )))))))) +(define Racket-Scheme-Compiler-startRacketWinSh (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "DIR=\"`realpath \"$0\"`\"" (vector 1 (Strings-Prelude-C-43C-43 "export PATH=\"`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-1 "\":$PATH\"")) (vector 1 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 arg-2 "\" \"$@\""))) (vector 0 )))))))) +(define Racket-Scheme-Compiler-startRacketCmd (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "@echo off" (vector 1 "set APPDIR=%~dp0" (vector 1 (Strings-Prelude-C-43C-43 "set PATH=%APPDIR%\\" (Strings-Prelude-C-43C-43 arg-1 ";%PATH%")) (vector 1 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 arg-2 "\" %*"))) (vector 0 )))))))) (define Racket-Scheme-Compiler-startRacket (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "" (vector 1 "DIR=\"`realpath $0`\"" (vector 1 (Strings-Prelude-C-43C-43 "export LD_LIBRARY_PATH=\"$LD_LIBRARY_PATH:`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-1 "\"\"")) (vector 1 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\"`dirname \"$DIR\"`\"/\"" (Strings-Prelude-C-43C-43 arg-2 "\" \"$@\""))) (vector 0 ))))))))) (define Racket-Scheme-Compiler-showRacketString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (eta-0) (Strings-Prelude-C-43C-43 "\\\"" ((Racket-Scheme-Compiler-showRacketString e-3) eta-0))))(else (lambda (eta-0) ((Racket-Scheme-Compiler-showRacketChar e-2) ((Racket-Scheme-Compiler-showRacketString e-3) eta-0))))))))))))) (define Racket-Scheme-Compiler-showRacketChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Racket-Scheme-Compiler-case--12978-9540 arg-0 (Prelude-C-124C-124 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32)) (lambda () (Prelude-C-62_Ord__Char arg-0 (Prelude-chr (Prelude-fromInteger_Num__Int 126))))))))))) @@ -6854,7 +6854,7 @@ (define Racket-Scheme-Compiler-racketPrim (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't compile C FFI calls to Racket yet") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((8) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((12) (let ((e-33 (vector-ref sc2 2))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-37)) (case (vector-ref sc5 0) ((1) (let ((e-40 (vector-ref sc5 2))) (let ((sc6 e-40)) (case (vector-ref sc6 0) ((1) (let ((e-42 (vector-ref sc6 1))) (let ((e-43 (vector-ref sc6 2))) (let ((sc7 e-43)) (case (vector-ref sc7 0) ((1) (let ((e-45 (vector-ref sc7 1))) (let ((e-46 (vector-ref sc7 2))) (let ((sc8 e-45)) (case (vector-ref sc8 0) ((12) (let ((e-48 (vector-ref sc8 2))) (let ((sc9 e-48)) (case (vector-ref sc9 0) ((2) (let ((e-49 (vector-ref sc9 1))) (let ((sc10 e-46)) (case (vector-ref sc10 0) ((1) (let ((e-52 (vector-ref sc10 2))) (let ((sc11 e-52)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-42) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-34 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-49 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 ")"))))))) eta-0))))))))(else (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((1) (let ((e-21 (vector-ref sc12 2))) (let ((sc13 e-21)) (case (vector-ref sc13 0) ((1) (let ((e-24 (vector-ref sc13 2))) (let ((sc14 e-24)) (case (vector-ref sc14 0) ((1) (let ((e-27 (vector-ref sc14 2))) (let ((sc15 e-27)) (case (vector-ref sc15 0) ((1) (let ((e-30 (vector-ref sc15 2))) (let ((sc16 e-30)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-15)) (case (vector-ref sc10 0) ((1) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((1) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((1) (let ((e-24 (vector-ref sc12 2))) (let ((sc13 e-24)) (case (vector-ref sc13 0) ((1) (let ((e-27 (vector-ref sc13 2))) (let ((sc14 e-27)) (case (vector-ref sc14 0) ((1) (let ((e-30 (vector-ref sc14 2))) (let ((sc15 e-30)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-15)) (case (vector-ref sc9 0) ((1) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((1) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((1) (let ((e-24 (vector-ref sc11 2))) (let ((sc12 e-24)) (case (vector-ref sc12 0) ((1) (let ((e-27 (vector-ref sc12 2))) (let ((sc13 e-27)) (case (vector-ref sc13 0) ((1) (let ((e-30 (vector-ref sc13 2))) (let ((sc14 e-30)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-15)) (case (vector-ref sc8 0) ((1) (let ((e-18 (vector-ref sc8 2))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((1) (let ((e-24 (vector-ref sc10 2))) (let ((sc11 e-24)) (case (vector-ref sc11 0) ((1) (let ((e-27 (vector-ref sc11 2))) (let ((sc12 e-27)) (case (vector-ref sc12 0) ((1) (let ((e-30 (vector-ref sc12 2))) (let ((sc13 e-30)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((1) (let ((e-24 (vector-ref sc9 2))) (let ((sc10 e-24)) (case (vector-ref sc10 0) ((1) (let ((e-27 (vector-ref sc10 2))) (let ((sc11 e-27)) (case (vector-ref sc11 0) ((1) (let ((e-30 (vector-ref sc11 2))) (let ((sc12 e-30)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-15)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 2))) (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((1) (let ((e-24 (vector-ref sc8 2))) (let ((sc9 e-24)) (case (vector-ref sc9 0) ((1) (let ((e-27 (vector-ref sc9 2))) (let ((sc10 e-27)) (case (vector-ref sc10 0) ((1) (let ((e-30 (vector-ref sc10 2))) (let ((sc11 e-30)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-15)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 2))) (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((1) (let ((e-24 (vector-ref sc7 2))) (let ((sc8 e-24)) (case (vector-ref sc8 0) ((1) (let ((e-27 (vector-ref sc8 2))) (let ((sc9 e-27)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-30)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-18 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 2))) (let ((sc7 e-24)) (case (vector-ref sc7 0) ((1) (let ((e-27 (vector-ref sc7 2))) (let ((sc8 e-27)) (case (vector-ref sc8 0) ((1) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-30)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-18 (vector-ref sc3 2))) (let ((sc4 e-18)) (case (vector-ref sc4 0) ((1) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 2))) (let ((sc6 e-24)) (case (vector-ref sc6 0) ((1) (let ((e-27 (vector-ref sc6 2))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((1) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-30)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-18 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 2))) (let ((sc5 e-24)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 2))) (let ((sc6 e-27)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-30)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((9) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((sc2 e-55)) (case (vector-ref sc2 0) ((12) (let ((e-80 (vector-ref sc2 2))) (let ((sc3 e-80)) (case (vector-ref sc3 0) ((2) (let ((e-81 (vector-ref sc3 1))) (let ((sc4 e-56)) (case (vector-ref sc4 0) ((1) (let ((e-84 (vector-ref sc4 2))) (let ((sc5 e-84)) (case (vector-ref sc5 0) ((1) (let ((e-87 (vector-ref sc5 2))) (let ((sc6 e-87)) (case (vector-ref sc6 0) ((1) (let ((e-89 (vector-ref sc6 1))) (let ((e-90 (vector-ref sc6 2))) (let ((sc7 e-90)) (case (vector-ref sc7 0) ((1) (let ((e-92 (vector-ref sc7 1))) (let ((e-93 (vector-ref sc7 2))) (let ((sc8 e-92)) (case (vector-ref sc8 0) ((12) (let ((e-95 (vector-ref sc8 2))) (let ((sc9 e-95)) (case (vector-ref sc9 0) ((2) (let ((e-96 (vector-ref sc9 1))) (let ((sc10 e-93)) (case (vector-ref sc10 0) ((1) (let ((e-99 (vector-ref sc10 2))) (let ((sc11 e-99)) (case (vector-ref sc11 0) ((1) (let ((e-101 (vector-ref sc11 1))) (let ((e-102 (vector-ref sc11 2))) (let ((sc12 e-102)) (case (vector-ref sc12 0) ((1) (let ((e-105 (vector-ref sc12 2))) (let ((sc13 e-105)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-89) eta-0))) (let ((sc14 act-15)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-16 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-101) eta-0))) (let ((sc15 act-16)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(set-" (Strings-Prelude-C-43C-43 e-81 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-96 (Strings-Prelude-C-43C-43 "! " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")")))))))))) eta-0)))))))))))))(else (let ((sc13 e-56)) (case (vector-ref sc13 0) ((1) (let ((e-59 (vector-ref sc13 2))) (let ((sc14 e-59)) (case (vector-ref sc14 0) ((1) (let ((e-62 (vector-ref sc14 2))) (let ((sc15 e-62)) (case (vector-ref sc15 0) ((1) (let ((e-65 (vector-ref sc15 2))) (let ((sc16 e-65)) (case (vector-ref sc16 0) ((1) (let ((e-68 (vector-ref sc16 2))) (let ((sc17 e-68)) (case (vector-ref sc17 0) ((1) (let ((e-71 (vector-ref sc17 2))) (let ((sc18 e-71)) (case (vector-ref sc18 0) ((1) (let ((e-74 (vector-ref sc18 2))) (let ((sc19 e-74)) (case (vector-ref sc19 0) ((1) (let ((e-77 (vector-ref sc19 2))) (let ((sc20 e-77)) (case (vector-ref sc20 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc12 e-56)) (case (vector-ref sc12 0) ((1) (let ((e-59 (vector-ref sc12 2))) (let ((sc13 e-59)) (case (vector-ref sc13 0) ((1) (let ((e-62 (vector-ref sc13 2))) (let ((sc14 e-62)) (case (vector-ref sc14 0) ((1) (let ((e-65 (vector-ref sc14 2))) (let ((sc15 e-65)) (case (vector-ref sc15 0) ((1) (let ((e-68 (vector-ref sc15 2))) (let ((sc16 e-68)) (case (vector-ref sc16 0) ((1) (let ((e-71 (vector-ref sc16 2))) (let ((sc17 e-71)) (case (vector-ref sc17 0) ((1) (let ((e-74 (vector-ref sc17 2))) (let ((sc18 e-74)) (case (vector-ref sc18 0) ((1) (let ((e-77 (vector-ref sc18 2))) (let ((sc19 e-77)) (case (vector-ref sc19 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc11 e-56)) (case (vector-ref sc11 0) ((1) (let ((e-59 (vector-ref sc11 2))) (let ((sc12 e-59)) (case (vector-ref sc12 0) ((1) (let ((e-62 (vector-ref sc12 2))) (let ((sc13 e-62)) (case (vector-ref sc13 0) ((1) (let ((e-65 (vector-ref sc13 2))) (let ((sc14 e-65)) (case (vector-ref sc14 0) ((1) (let ((e-68 (vector-ref sc14 2))) (let ((sc15 e-68)) (case (vector-ref sc15 0) ((1) (let ((e-71 (vector-ref sc15 2))) (let ((sc16 e-71)) (case (vector-ref sc16 0) ((1) (let ((e-74 (vector-ref sc16 2))) (let ((sc17 e-74)) (case (vector-ref sc17 0) ((1) (let ((e-77 (vector-ref sc17 2))) (let ((sc18 e-77)) (case (vector-ref sc18 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-56)) (case (vector-ref sc10 0) ((1) (let ((e-59 (vector-ref sc10 2))) (let ((sc11 e-59)) (case (vector-ref sc11 0) ((1) (let ((e-62 (vector-ref sc11 2))) (let ((sc12 e-62)) (case (vector-ref sc12 0) ((1) (let ((e-65 (vector-ref sc12 2))) (let ((sc13 e-65)) (case (vector-ref sc13 0) ((1) (let ((e-68 (vector-ref sc13 2))) (let ((sc14 e-68)) (case (vector-ref sc14 0) ((1) (let ((e-71 (vector-ref sc14 2))) (let ((sc15 e-71)) (case (vector-ref sc15 0) ((1) (let ((e-74 (vector-ref sc15 2))) (let ((sc16 e-74)) (case (vector-ref sc16 0) ((1) (let ((e-77 (vector-ref sc16 2))) (let ((sc17 e-77)) (case (vector-ref sc17 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-56)) (case (vector-ref sc9 0) ((1) (let ((e-59 (vector-ref sc9 2))) (let ((sc10 e-59)) (case (vector-ref sc10 0) ((1) (let ((e-62 (vector-ref sc10 2))) (let ((sc11 e-62)) (case (vector-ref sc11 0) ((1) (let ((e-65 (vector-ref sc11 2))) (let ((sc12 e-65)) (case (vector-ref sc12 0) ((1) (let ((e-68 (vector-ref sc12 2))) (let ((sc13 e-68)) (case (vector-ref sc13 0) ((1) (let ((e-71 (vector-ref sc13 2))) (let ((sc14 e-71)) (case (vector-ref sc14 0) ((1) (let ((e-74 (vector-ref sc14 2))) (let ((sc15 e-74)) (case (vector-ref sc15 0) ((1) (let ((e-77 (vector-ref sc15 2))) (let ((sc16 e-77)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-56)) (case (vector-ref sc8 0) ((1) (let ((e-59 (vector-ref sc8 2))) (let ((sc9 e-59)) (case (vector-ref sc9 0) ((1) (let ((e-62 (vector-ref sc9 2))) (let ((sc10 e-62)) (case (vector-ref sc10 0) ((1) (let ((e-65 (vector-ref sc10 2))) (let ((sc11 e-65)) (case (vector-ref sc11 0) ((1) (let ((e-68 (vector-ref sc11 2))) (let ((sc12 e-68)) (case (vector-ref sc12 0) ((1) (let ((e-71 (vector-ref sc12 2))) (let ((sc13 e-71)) (case (vector-ref sc13 0) ((1) (let ((e-74 (vector-ref sc13 2))) (let ((sc14 e-74)) (case (vector-ref sc14 0) ((1) (let ((e-77 (vector-ref sc14 2))) (let ((sc15 e-77)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-56)) (case (vector-ref sc7 0) ((1) (let ((e-59 (vector-ref sc7 2))) (let ((sc8 e-59)) (case (vector-ref sc8 0) ((1) (let ((e-62 (vector-ref sc8 2))) (let ((sc9 e-62)) (case (vector-ref sc9 0) ((1) (let ((e-65 (vector-ref sc9 2))) (let ((sc10 e-65)) (case (vector-ref sc10 0) ((1) (let ((e-68 (vector-ref sc10 2))) (let ((sc11 e-68)) (case (vector-ref sc11 0) ((1) (let ((e-71 (vector-ref sc11 2))) (let ((sc12 e-71)) (case (vector-ref sc12 0) ((1) (let ((e-74 (vector-ref sc12 2))) (let ((sc13 e-74)) (case (vector-ref sc13 0) ((1) (let ((e-77 (vector-ref sc13 2))) (let ((sc14 e-77)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-56)) (case (vector-ref sc6 0) ((1) (let ((e-59 (vector-ref sc6 2))) (let ((sc7 e-59)) (case (vector-ref sc7 0) ((1) (let ((e-62 (vector-ref sc7 2))) (let ((sc8 e-62)) (case (vector-ref sc8 0) ((1) (let ((e-65 (vector-ref sc8 2))) (let ((sc9 e-65)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 2))) (let ((sc10 e-68)) (case (vector-ref sc10 0) ((1) (let ((e-71 (vector-ref sc10 2))) (let ((sc11 e-71)) (case (vector-ref sc11 0) ((1) (let ((e-74 (vector-ref sc11 2))) (let ((sc12 e-74)) (case (vector-ref sc12 0) ((1) (let ((e-77 (vector-ref sc12 2))) (let ((sc13 e-77)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-56)) (case (vector-ref sc5 0) ((1) (let ((e-59 (vector-ref sc5 2))) (let ((sc6 e-59)) (case (vector-ref sc6 0) ((1) (let ((e-62 (vector-ref sc6 2))) (let ((sc7 e-62)) (case (vector-ref sc7 0) ((1) (let ((e-65 (vector-ref sc7 2))) (let ((sc8 e-65)) (case (vector-ref sc8 0) ((1) (let ((e-68 (vector-ref sc8 2))) (let ((sc9 e-68)) (case (vector-ref sc9 0) ((1) (let ((e-71 (vector-ref sc9 2))) (let ((sc10 e-71)) (case (vector-ref sc10 0) ((1) (let ((e-74 (vector-ref sc10 2))) (let ((sc11 e-74)) (case (vector-ref sc11 0) ((1) (let ((e-77 (vector-ref sc11 2))) (let ((sc12 e-77)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-56)) (case (vector-ref sc4 0) ((1) (let ((e-59 (vector-ref sc4 2))) (let ((sc5 e-59)) (case (vector-ref sc5 0) ((1) (let ((e-62 (vector-ref sc5 2))) (let ((sc6 e-62)) (case (vector-ref sc6 0) ((1) (let ((e-65 (vector-ref sc6 2))) (let ((sc7 e-65)) (case (vector-ref sc7 0) ((1) (let ((e-68 (vector-ref sc7 2))) (let ((sc8 e-68)) (case (vector-ref sc8 0) ((1) (let ((e-71 (vector-ref sc8 2))) (let ((sc9 e-71)) (case (vector-ref sc9 0) ((1) (let ((e-74 (vector-ref sc9 2))) (let ((sc10 e-74)) (case (vector-ref sc10 0) ((1) (let ((e-77 (vector-ref sc10 2))) (let ((sc11 e-77)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-56)) (case (vector-ref sc3 0) ((1) (let ((e-59 (vector-ref sc3 2))) (let ((sc4 e-59)) (case (vector-ref sc4 0) ((1) (let ((e-62 (vector-ref sc4 2))) (let ((sc5 e-62)) (case (vector-ref sc5 0) ((1) (let ((e-65 (vector-ref sc5 2))) (let ((sc6 e-65)) (case (vector-ref sc6 0) ((1) (let ((e-68 (vector-ref sc6 2))) (let ((sc7 e-68)) (case (vector-ref sc7 0) ((1) (let ((e-71 (vector-ref sc7 2))) (let ((sc8 e-71)) (case (vector-ref sc8 0) ((1) (let ((e-74 (vector-ref sc8 2))) (let ((sc9 e-74)) (case (vector-ref sc9 0) ((1) (let ((e-77 (vector-ref sc9 2))) (let ((sc10 e-77)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-56)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 2))) (let ((sc3 e-59)) (case (vector-ref sc3 0) ((1) (let ((e-62 (vector-ref sc3 2))) (let ((sc4 e-62)) (case (vector-ref sc4 0) ((1) (let ((e-65 (vector-ref sc4 2))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((1) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((1) (let ((e-74 (vector-ref sc7 2))) (let ((sc8 e-74)) (case (vector-ref sc8 0) ((1) (let ((e-77 (vector-ref sc8 2))) (let ((sc9 e-77)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((12) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "\"racket\"") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))) (define Racket-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-1)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Racket-Scheme-Compiler-case--14378-10822 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-0 e-6)) eta-0))))))))))))))) ((8) (let ((e-2 (vector-ref sc0 1))) (Racket-Scheme-Compiler-mkStruct arg-0 e-2))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Racket-Scheme-Compiler-mkStruct arg-0 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Racket-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))))))) (define Racket-Scheme-Compiler-mkArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (vector 1 (vector 0 (vector 2 "farg" arg-0) 1) (Racket-Scheme-Compiler-mkArgs arg-0 e-3)))(else (vector 1 (vector 0 (vector 2 "farg" arg-0) 0) (Racket-Scheme-Compiler-mkArgs (Prelude-C-43_Num__Int arg-0 1) e-3)))))))))))) -(define Racket-Scheme-Compiler-makeShWindows (lambda (arg-0 arg-1 arg-2) (let ((cmdFile (Strings-Prelude-C-43C-43 arg-0 ".cmd"))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile cmdFile (Racket-Scheme-Compiler-startRacketCmd arg-1 arg-2) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (let ((act-16 (let ((act-16 (File-System-writeFile arg-0 (Racket-Scheme-Compiler-startRacketWinSh arg-1 arg-2) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((sc5 e-3)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) eta-0))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 cmdFile e-6) eta-0)))))))))))))) +(define Racket-Scheme-Compiler-makeShWindows (lambda (arg-0 arg-1 arg-2 arg-3) (let ((cmdFile (Strings-Prelude-C-43C-43 arg-1 ".cmd"))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile cmdFile (Racket-Scheme-Compiler-startRacketCmd arg-0 arg-2 arg-3) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (let ((act-16 (let ((act-16 (File-System-writeFile arg-1 (Racket-Scheme-Compiler-startRacketWinSh arg-0 arg-2 arg-3) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((sc5 e-3)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) eta-0))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 cmdFile e-6) eta-0)))))))))))))) (define Racket-Scheme-Compiler-makeSh (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (File-System-writeFile arg-1 (Racket-Scheme-Compiler-startRacket arg-0 arg-2 arg-3) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0)))))))))))) (define Racket-Scheme-Compiler-loadlib (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "(define-ffi-definer define-" (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " (ffi-lib \"" (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\" " (Strings-Prelude-C-43C-43 arg-1 "))\u000a")))))))) (define Racket-Scheme-Compiler-handleRet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Common-Scheme-Compiler-mkWorld (Common-Scheme-Compiler-schConstructor (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) (vector 1 "") (vector 1 0) (vector 0 ))))))(else (Common-Scheme-Compiler-mkWorld (Racket-Scheme-Compiler-cToRkt arg-0 arg-1))))))) @@ -6864,7 +6864,7 @@ (define Racket-Scheme-Compiler-findRacket (lambda (ext-0) (let ((act-15 (System-getEnv "RACKET" ext-0))) (Prelude-pure_Applicative__IO 'erased (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env racket") act-15) ext-0)))) (define Racket-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 ((Racket-Scheme-Compiler-compileExpr 1 arg-0 arg-1 arg-2 "_tmpracket") ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (System-system e-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") ext-0))))))))))) (define Racket-Scheme-Compiler-compileToRKT (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Common-Compiler-getCompileData arg-0 (vector 0 ) arg-2 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((ndefs (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Done" ) (Prelude-empty_Alternative__List 'erased) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Loaded" ) (vector 0 ) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Structs" ) (vector 0 ) ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Racket-Scheme-Compiler-getFgnCall e-7 arg-0 e-8 e-9 arg-1 eta-0)) ndefs) ext-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) eta-0)) ndefs) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-10) e-11)))) (let ((act-22 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) 0 ctm) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-23 (Directory-Core-readDataFile arg-0 "racket/support.rkt" ext-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((scm (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-schHeader ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-10))) (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 code (Strings-Prelude-C-43C-43 "(void " (Strings-Prelude-C-43C-43 e-12 (Strings-Prelude-C-43C-43 ")\u000a" (Racket-Scheme-Compiler-schFooter))))))))) (let ((act-24 (let ((act-24 (File-System-writeFile arg-3 scm ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) ext-0)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-14 (vector-ref sc9 1))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((sc11 e-2)) (let ((act-25 (let ((act-25 (File-System-chmodRaw arg-3 (Prelude-fromInteger_Num__Int 493) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) ext-0)))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))) (else (let ((e-15 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-15) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Racket-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-4 "_app"))) (let ((appDirGen (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) appDirRel)))) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Directory-Core-mkdirs (Directory-Core-splitDir appDirGen)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (Directory-System-currentDir eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--15154-11525 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 (Prelude-C-61C-61_Eq__String (Info-System-os) "windows"))))) (let ((outRktFile (Strings-Prelude-C-43C-43 appDirRel (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 ".rkt"))))) (let ((outBinFile (Strings-Prelude-C-43C-43 appDirRel (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 ext))))) (let ((outRktAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outRktFile)))))) (let ((outBinAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outBinFile)))))) (let ((act-17 (Racket-Scheme-Compiler-compileToRKT arg-1 appDirGen arg-3 outRktAbs eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 (Racket-Scheme-Compiler-findRacoExe eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (Racket-Scheme-Compiler-findRacket eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((sc6 arg-0)) (cond ((equal? sc6 0) (Context-Core-logTime 'erased arg-1 (lambda () "Build racket") (lambda (eta-1) (let ((act-20 (System-system (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs)))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--15154-11608 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-7 e-8 e-9 e-10 (Prelude-C-61C-61_Eq__Int e-10 0)) eta-0))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))))))))))))))) +(define Racket-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-4 "_app"))) (let ((appDirGen (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) appDirRel)))) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Directory-Core-mkdirs (Directory-Core-splitDir appDirGen)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (Directory-System-currentDir eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--15169-11534 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 (Options-Core-isWindows))))) (let ((outRktFile (Strings-Prelude-C-43C-43 appDirRel (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 ".rkt"))))) (let ((outBinFile (Strings-Prelude-C-43C-43 appDirRel (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 ext))))) (let ((outRktAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outRktFile)))))) (let ((outBinAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outBinFile)))))) (let ((act-17 (Racket-Scheme-Compiler-compileToRKT arg-1 appDirGen arg-3 outRktAbs eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 (Racket-Scheme-Compiler-findRacoExe eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (Racket-Scheme-Compiler-findRacket eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((sc6 arg-0)) (cond ((equal? sc6 0) (Context-Core-logTime 'erased arg-1 (lambda () "Build racket") (lambda (eta-1) (let ((act-20 (System-system (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs)))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--15169-11617 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-7 e-8 e-9 e-10 (Prelude-C-61C-61_Eq__Int e-10 0)) eta-0))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))))))))))))))) (define Racket-Scheme-Compiler-codegenRacket (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-compileExpr 0 eta-0 eta-1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3)))))))) (define Racket-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_void") eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_int") eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_string/utf-8") eta-0))) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_double") eta-0))) ((4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_int8") eta-0))) ((5) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_pointer") eta-0))) ((8) (let ((e-0 (vector-ref sc0 1))) (Racket-Scheme-Compiler-cftySpec arg-0 e-0))) ((9) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 e-1 "-pointer"))) eta-0)))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--13292-9826-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0))))))) (define Racket-Scheme-Compiler-cToRkt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((4) (Strings-Prelude-C-43C-43 "(integer->char " (Strings-Prelude-C-43C-43 arg-1 ")")))(else arg-1))))) @@ -6954,58 +6954,58 @@ (define CommandLine-Idris-findMatch (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 1 (vector 14 e-6) (vector 0 )) e-7)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-matchFlag e-2 arg-1) (lambda (bind-0) (let ((sc1 bind-0)) (case (vector-ref sc1 0) ((0) (CommandLine-Idris-findMatch e-3 arg-1)) (else (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))))))))))))) (define OptDesc-CommandLine-Idris-argdescs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define OptDesc-CommandLine-Idris-action (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define Package-Idris-case--35796-18494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-16) e-3 e-4 e-5 e-6)))))))))) -(define Package-Idris-case--35742-18380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-3 e-4 e-8 e-7)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0)))))))))))))))))))))) -(define Package-Idris-case--35688-18333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Package-Idris-addFields arg-2 e-9 (Package-Idris-initPkgDesc e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-setSourceDir arg-2 (let ((sc3 e-5)) (let ((e-15 (vector-ref sc3 16))) e-15)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc4 e-5)) (let ((e-14 (vector-ref sc4 15))) e-14))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 ((Package-Idris-n--35621-18221-loadDependencies arg-0 arg-1 arg-2 (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 11))) e-10))) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc6 arg-0)) (case (vector-ref sc6 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-3 (vector-ref sc6 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-3 (vector 0 )))))) (let ((act-19 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-1 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-15 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-14 (vector-ref sc9 6))) (let ((e-13 (vector-ref sc9 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-15 e-4 e-14 e-13)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0)))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc arg-4 e-5) e-5) eta-0)))))))) -(define Package-Idris-case--35621-18280 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Source-Parser-parseFile 'erased e-9 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Idris-parsePkgDesc e-9)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-18324) (Core-Parser-Text-pure 'erased 'erased desc)))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-17 (Package-Idris-addFields arg-2 e-11 (Package-Idris-initPkgDesc e-12) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-18 (Context-Core-setSourceDir arg-2 (let ((sc8 e-13)) (let ((e-15 (vector-ref sc8 16))) e-15)) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc9 e-13)) (let ((e-22 (vector-ref sc9 15))) e-22))) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-20 ((Package-Idris-n--35621-18221-loadDependencies arg-0 arg-1 arg-2 (let ((sc10 e-13)) (let ((e-27 (vector-ref sc10 11))) e-27))) eta-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc11 arg-0)) (case (vector-ref sc11 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-3 (vector-ref sc11 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased e-10 (vector 1 e-3 (vector 0 )))))) (let ((act-21 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc13 act-22)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-23 (let ((act-23 (IORef-Data-writeIORef 'erased arg-1 (let ((sc14 e-18)) (let ((e-0 (vector-ref sc14 1))) (let ((e-23 (vector-ref sc14 2))) (let ((e-21 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-20 (vector-ref sc14 6))) (let ((e-19 (vector-ref sc14 7))) (vector 0 e-0 e-23 (vector 1 srcC-39) e-21 e-4 e-20 e-19)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc14 act-23)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0))))))))))))))))))))))))))))))))))))))))) (else (let ((e-11 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc e-9 e-11) e-11) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0))))))) -(define Package-Idris-case--35348-18078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Package-Idris-install arg-3 arg-1 arg-7 eta-0)))(else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) -(define Package-Idris-case--35348-18006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) -(define Package-Idris-case--35317-17979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (Package-Idris-build arg-4 arg-3 arg-2 arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))) ((1) (lambda (eta-0) (let ((act-15 (Package-Idris-build arg-4 arg-3 arg-2 arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Package-Idris-install arg-4 arg-2 arg-8 eta-0))(else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))) ((2) (lambda (eta-0) (Package-Idris-clean arg-4 arg-2 arg-8 eta-0))) (else (lambda (eta-0) (Package-Idris-runRepl arg-4 arg-2 arg-8 eta-0))))))) -(define Package-Idris-case--35282-17955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Package-Idris-addFields arg-4 e-9 (Package-Idris-initPkgDesc e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((0) (let ((act-16 (Package-Idris-build arg-4 arg-3 arg-2 e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))) ((1) (let ((act-16 (Package-Idris-build arg-4 arg-3 arg-2 e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Package-Idris-install arg-4 arg-2 e-5 eta-0))(else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))) ((2) (Package-Idris-clean arg-4 arg-2 e-5 eta-0)) (else (Package-Idris-runRepl arg-4 arg-2 e-5 eta-0))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc arg-0 e-5) e-5) eta-0)))))))) -(define Package-Idris-case--34941-17857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 e-3 e-2))))))))) -(define Package-Idris-case--34941-17696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((builddir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "ttc")))))) (let ((execdir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-5)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-10) (vector 1 v arg-10))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) arg-8))) (lambda (eta-0) (let ((act-15 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-1) (lambda (eta-2) (Package-Idris-n--34941-17587-deleteFolder arg-0 arg-1 arg-2 builddir eta-1 eta-2))) (lambda (ks) (lambda (eta-1) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) eta-3)) (Core-Core-traverse 'erased 'erased (lambda (eta-3) (Package-Idris-n--34941-17588-deleteBin arg-0 arg-1 arg-2 builddir ks eta-3)) eta-1) eta-2)))) pkgTrie eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Package-Idris-n--34941-17587-deleteFolder arg-0 arg-1 arg-2 builddir (vector 0 ) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (e) (lambda (eta-1) (Package-Idris-n--34941-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 execdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e)) eta-1)))) (let ((sc3 arg-0)) (let ((e-13 (vector-ref sc3 14))) e-13))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Package-Idris-runScript (let ((sc4 arg-0)) (let ((e-21 (vector-ref sc4 22))) e-21))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) -(define Package-Idris-case--34947-17599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-3) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Package-Idris-case--34831-17513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34824-17482-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-4 ksC-39) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 arg-8) e-5)))) e-6)))) eta-0)))))))))))))))))) -(define Package-Idris-case--34489-17177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Package-Idris-runScript (let ((sc3 arg-0)) (let ((e-19 (vector-ref sc3 20))) e-19))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0))))))) -(define Package-Idris-case--34445-17142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc5 arg-0)) (let ((e-19 (vector-ref sc5 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0))))))) -(define Package-Idris-case--34409-17107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Directory-Core-mkdirs (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-16 (let ((act-16 (Directory-System-changeDir (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (let ((act-18 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc7 arg-0)) (let ((e-19 (vector-ref sc7 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " arg-9)) eta-0))))))) -(define Package-Idris-case--34362-17079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((installPrefix (Strings-Prelude-C-43C-43 (let ((sc1 (let ((sc2 (let ((sc3 arg-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir installPrefix eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 (let ((act-16 ((Directory-Core-mkdirs (vector 1 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((act-17 (let ((act-17 (Directory-System-changeDir (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)) (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 installPrefix (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 (let ((act-19 (Directory-System-changeDir e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc9 arg-0)) (let ((e-19 (vector-ref sc9 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) -(define Package-Idris-case--34181-16921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))) -(define Package-Idris-case--34136-16876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (Package-Idris-copyFile arg-8 arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased arg-1)))) eta-0))))))) -(define Package-Idris-case--34098-16812 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Binary-Utils-writeToFile arg-0 e-2 eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0)))))))) -(define Package-Idris-case--33928-16704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((mainn (vector 0 (vector 1 "Main" (vector 0 )) (vector 1 "main")))) (lambda (eta-0) (Package-Idris-compileMain arg-3 arg-2 arg-1 mainn e-6 arg-10 eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (FC-Core-emptyFC) "No main module given") eta-0))))))) -(define Package-Idris-case--33886-16652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Package-Idris-case--33928-16704 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 (let ((sc1 arg-0)) (let ((e-12 (vector-ref sc1 13))) e-12))))))))) -(define Package-Idris-case--33827-16617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (let ((_-0 (vector 0 ))) ((Package-Idris-case--33886-16652 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 (let ((sc1 arg-0)) (let ((e-13 (vector-ref sc1 14))) e-13))) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Package-Idris-runScript (let ((sc2 arg-0)) (let ((e-17 (vector-ref sc2 18))) e-17))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-9) eta-0))))))) -(define Package-Idris-case--33719-16474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((SetOptions-Idris-preOptions arg-3 arg-2 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 e-5) eta-0)))))))) -(define Package-Idris-case--33512-16394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-9 arg-10 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) -(define Package-Idris-case--32596-16242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (vector 1 (vector 0 arg-1 arg-0))))))))))))))))))))))))))) -(define Package-Idris-case--32596-16197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 (vector 0 arg-1 arg-0)) e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-16152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 arg-1 arg-0)) e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-16107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-1 arg-0)) e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-16062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 arg-1 arg-0)) e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-16017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (vector 1 (vector 0 arg-1 arg-0)) e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector 1 arg-0) e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (vector 1 (vector 0 arg-1 arg-0)) e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 arg-0) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-0 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15741 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15659 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-0) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-0) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32596-15458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-n--33512-16262-toSource (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Directory-Core-nsToSource arg-2 e-2 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 e-5)) eta-0)))))))))))) -(define Package-Idris-n--32193-14966-strField (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent arg-2)) (lambda () (lambda (_-15008) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15019) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-constant)) (lambda () (lambda (c) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Package-Idris-n--32193-14965-getStr arg-0 arg-1 (vector 0 arg-0 start end) arg-2 c)))))))))))))))) -(define Package-Idris-n--35621-18221-loadDependencies (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-2 eta-0 eta-1))) ext-0))) -(define Package-Idris-n--34824-17482-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-1) (These-Data-bifold 'erased arg-1 eta-1)) eta-0)) (Package-Idris-bitraverseC 'erased 'erased 'erased 'erased (arg-3 arg-5) (lambda (sm) ((Package-Idris-foldlC 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34824-17482-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-4 ksC-39) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 x) e-5)))) e-6)))) eta-0)))))))))))))))))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))) (StringMap-Data-toList 'erased sm))) arg-6) ext-0))) -(define Package-Idris-n--33512-16263-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Package-Idris-addField arg-2 arg-3 arg-4 e-2 arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Package-Idris-n--33512-16263-go arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0)))))))))))))) -(define Package-Idris-n--32193-14965-getStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Core-Parser-Text-pure 'erased 'erased ((arg-1 arg-2) e-0))))(else (Core-Parser-Text-fail 'erased 'erased 'erased (Strings-Prelude-C-43C-43 arg-3 " field must be a string"))))))) -(define Package-Idris-n--34941-17587-deleteFolder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Package-Idris-n--34941-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Name-Core-showSep (Options-Core-dirSep) arg-4))) ext-0))) -(define Package-Idris-n--34941-17588-deleteBin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((ttFile (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 (Name-Core-showSep (Options-Core-dirSep) arg-4) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-5)))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34941-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 ttFile ".ttc") eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Package-Idris-n--34941-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 ttFile ".ttm") eta-0))))))))) -(define Package-Idris-n--34941-17586-delete (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (File-System-fileRemove arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-3) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) +(define Package-Idris-case--35797-18494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-16) e-3 e-4 e-5 e-6)))))))))) +(define Package-Idris-case--35743-18380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-3 e-4 e-8 e-7)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0)))))))))))))))))))))) +(define Package-Idris-case--35689-18333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Package-Idris-addFields arg-2 e-9 (Package-Idris-initPkgDesc e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-setSourceDir arg-2 (let ((sc3 e-5)) (let ((e-15 (vector-ref sc3 16))) e-15)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc4 e-5)) (let ((e-14 (vector-ref sc4 15))) e-14))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 ((Package-Idris-n--35622-18221-loadDependencies arg-0 arg-1 arg-2 (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 11))) e-10))) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc6 arg-0)) (case (vector-ref sc6 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-3 (vector-ref sc6 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-3 (vector 0 )))))) (let ((act-19 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-1 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-15 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-14 (vector-ref sc9 6))) (let ((e-13 (vector-ref sc9 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-15 e-4 e-14 e-13)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0)))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc arg-4 e-5) e-5) eta-0)))))))) +(define Package-Idris-case--35622-18280 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Source-Parser-parseFile 'erased e-9 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Idris-parsePkgDesc e-9)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-18324) (Core-Parser-Text-pure 'erased 'erased desc)))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-17 (Package-Idris-addFields arg-2 e-11 (Package-Idris-initPkgDesc e-12) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-18 (Context-Core-setSourceDir arg-2 (let ((sc8 e-13)) (let ((e-15 (vector-ref sc8 16))) e-15)) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc9 e-13)) (let ((e-22 (vector-ref sc9 15))) e-22))) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-20 ((Package-Idris-n--35622-18221-loadDependencies arg-0 arg-1 arg-2 (let ((sc10 e-13)) (let ((e-27 (vector-ref sc10 11))) e-27))) eta-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc11 arg-0)) (case (vector-ref sc11 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-3 (vector-ref sc11 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased e-10 (vector 1 e-3 (vector 0 )))))) (let ((act-21 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc13 act-22)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-23 (let ((act-23 (IORef-Data-writeIORef 'erased arg-1 (let ((sc14 e-18)) (let ((e-0 (vector-ref sc14 1))) (let ((e-23 (vector-ref sc14 2))) (let ((e-21 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-20 (vector-ref sc14 6))) (let ((e-19 (vector-ref sc14 7))) (vector 0 e-0 e-23 (vector 1 srcC-39) e-21 e-4 e-20 e-19)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc14 act-23)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0))))))))))))))))))))))))))))))))))))))))) (else (let ((e-11 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc e-9 e-11) e-11) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0))))))) +(define Package-Idris-case--35349-18078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Package-Idris-install arg-3 arg-1 arg-7 eta-0)))(else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) +(define Package-Idris-case--35349-18006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) +(define Package-Idris-case--35318-17979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (Package-Idris-build arg-4 arg-3 arg-2 arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))) ((1) (lambda (eta-0) (let ((act-15 (Package-Idris-build arg-4 arg-3 arg-2 arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Package-Idris-install arg-4 arg-2 arg-8 eta-0))(else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))) ((2) (lambda (eta-0) (Package-Idris-clean arg-4 arg-2 arg-8 eta-0))) (else (lambda (eta-0) (Package-Idris-runRepl arg-4 arg-2 arg-8 eta-0))))))) +(define Package-Idris-case--35283-17955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Package-Idris-addFields arg-4 e-9 (Package-Idris-initPkgDesc e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((0) (let ((act-16 (Package-Idris-build arg-4 arg-3 arg-2 e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))) ((1) (let ((act-16 (Package-Idris-build arg-4 arg-3 arg-2 e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Package-Idris-install arg-4 arg-2 e-5 eta-0))(else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))) ((2) (Package-Idris-clean arg-4 arg-2 e-5 eta-0)) (else (Package-Idris-runRepl arg-4 arg-2 e-5 eta-0))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc arg-0 e-5) e-5) eta-0)))))))) +(define Package-Idris-case--34942-17857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 e-3 e-2))))))))) +(define Package-Idris-case--34942-17696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((builddir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "ttc")))))) (let ((execdir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-5)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-10) (vector 1 v arg-10))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) arg-8))) (lambda (eta-0) (let ((act-15 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-1) (lambda (eta-2) (Package-Idris-n--34942-17587-deleteFolder arg-0 arg-1 arg-2 builddir eta-1 eta-2))) (lambda (ks) (lambda (eta-1) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) eta-3)) (Core-Core-traverse 'erased 'erased (lambda (eta-3) (Package-Idris-n--34942-17588-deleteBin arg-0 arg-1 arg-2 builddir ks eta-3)) eta-1) eta-2)))) pkgTrie eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Package-Idris-n--34942-17587-deleteFolder arg-0 arg-1 arg-2 builddir (vector 0 ) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (e) (lambda (eta-1) (Package-Idris-n--34942-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 execdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e)) eta-1)))) (let ((sc3 arg-0)) (let ((e-13 (vector-ref sc3 14))) e-13))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Package-Idris-runScript (let ((sc4 arg-0)) (let ((e-21 (vector-ref sc4 22))) e-21))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Package-Idris-case--34948-17599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-3) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Package-Idris-case--34832-17513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34825-17482-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-4 ksC-39) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 arg-8) e-5)))) e-6)))) eta-0)))))))))))))))))) +(define Package-Idris-case--34490-17177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Package-Idris-runScript (let ((sc3 arg-0)) (let ((e-19 (vector-ref sc3 20))) e-19))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0))))))) +(define Package-Idris-case--34446-17142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc5 arg-0)) (let ((e-19 (vector-ref sc5 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0))))))) +(define Package-Idris-case--34410-17107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Directory-Core-mkdirs (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-16 (let ((act-16 (Directory-System-changeDir (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (let ((act-18 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc7 arg-0)) (let ((e-19 (vector-ref sc7 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " arg-9)) eta-0))))))) +(define Package-Idris-case--34363-17079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((installPrefix (Strings-Prelude-C-43C-43 (let ((sc1 (let ((sc2 (let ((sc3 arg-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir installPrefix eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 (let ((act-16 ((Directory-Core-mkdirs (vector 1 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((act-17 (let ((act-17 (Directory-System-changeDir (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)) (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 installPrefix (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 (let ((act-19 (Directory-System-changeDir e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc9 arg-0)) (let ((e-19 (vector-ref sc9 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Package-Idris-case--34182-16921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))) +(define Package-Idris-case--34137-16876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (Package-Idris-copyFile arg-8 arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased arg-1)))) eta-0))))))) +(define Package-Idris-case--34099-16812 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Binary-Utils-writeToFile arg-0 e-2 eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0)))))))) +(define Package-Idris-case--33929-16704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((mainn (vector 0 (vector 1 "Main" (vector 0 )) (vector 1 "main")))) (lambda (eta-0) (Package-Idris-compileMain arg-3 arg-2 arg-1 mainn e-6 arg-10 eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (FC-Core-emptyFC) "No main module given") eta-0))))))) +(define Package-Idris-case--33887-16652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Package-Idris-case--33929-16704 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 (let ((sc1 arg-0)) (let ((e-12 (vector-ref sc1 13))) e-12))))))))) +(define Package-Idris-case--33828-16617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (let ((_-0 (vector 0 ))) ((Package-Idris-case--33887-16652 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 (let ((sc1 arg-0)) (let ((e-13 (vector-ref sc1 14))) e-13))) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Package-Idris-runScript (let ((sc2 arg-0)) (let ((e-17 (vector-ref sc2 18))) e-17))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-9) eta-0))))))) +(define Package-Idris-case--33720-16474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((SetOptions-Idris-preOptions arg-3 arg-2 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 e-5) eta-0)))))))) +(define Package-Idris-case--33513-16394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-9 arg-10 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) +(define Package-Idris-case--32597-16242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (vector 1 (vector 0 arg-1 arg-0))))))))))))))))))))))))))) +(define Package-Idris-case--32597-16197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 (vector 0 arg-1 arg-0)) e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-16152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 arg-1 arg-0)) e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-16107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-1 arg-0)) e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-16062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 arg-1 arg-0)) e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-16017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (vector 1 (vector 0 arg-1 arg-0)) e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector 1 arg-0) e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (vector 1 (vector 0 arg-1 arg-0)) e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 arg-0) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-0 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15741 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15659 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-0) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-0) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-n--33513-16262-toSource (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Directory-Core-nsToSource arg-2 e-2 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 e-5)) eta-0)))))))))))) +(define Package-Idris-n--32194-14966-strField (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent arg-2)) (lambda () (lambda (_-15008) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15019) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-constant)) (lambda () (lambda (c) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Package-Idris-n--32194-14965-getStr arg-0 arg-1 (vector 0 arg-0 start end) arg-2 c)))))))))))))))) +(define Package-Idris-n--35622-18221-loadDependencies (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-2 eta-0 eta-1))) ext-0))) +(define Package-Idris-n--34825-17482-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-1) (These-Data-bifold 'erased arg-1 eta-1)) eta-0)) (Package-Idris-bitraverseC 'erased 'erased 'erased 'erased (arg-3 arg-5) (lambda (sm) ((Package-Idris-foldlC 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34825-17482-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-4 ksC-39) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 x) e-5)))) e-6)))) eta-0)))))))))))))))))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))) (StringMap-Data-toList 'erased sm))) arg-6) ext-0))) +(define Package-Idris-n--33513-16263-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Package-Idris-addField arg-2 arg-3 arg-4 e-2 arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Package-Idris-n--33513-16263-go arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0)))))))))))))) +(define Package-Idris-n--32194-14965-getStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Core-Parser-Text-pure 'erased 'erased ((arg-1 arg-2) e-0))))(else (Core-Parser-Text-fail 'erased 'erased 'erased (Strings-Prelude-C-43C-43 arg-3 " field must be a string"))))))) +(define Package-Idris-n--34942-17587-deleteFolder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Package-Idris-n--34942-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Name-Core-showSep (Options-Core-dirSep) arg-4))) ext-0))) +(define Package-Idris-n--34942-17588-deleteBin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((ttFile (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 (Name-Core-showSep (Options-Core-dirSep) arg-4) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-5)))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34942-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 ttFile ".ttc") eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Package-Idris-n--34942-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 ttFile ".ttm") eta-0))))))))) +(define Package-Idris-n--34942-17586-delete (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (File-System-fileRemove arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-3) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (define Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 ))) (define Package-Idris-__Impl_Semigroup_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (ext-0 ext-1) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 ext-0 ext-1))) (define Package-Idris-__Impl_Monoid_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) @@ -7016,7 +7016,7 @@ (define Package-Idris-rejectPackageOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((12) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "Package commands (--build, --install, --clean, --repl) must be the only option given" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))(else (Package-Idris-rejectPackageOpts e-2))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) (define Package-Idris-processPackageOpts (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((12) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-15 (Package-Idris-processPackage arg-0 arg-1 arg-2 e-3 e-4 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))(else (Package-Idris-rejectPackageOpts arg-3)))))))(else (Package-Idris-rejectPackageOpts arg-3)))))))(else (Package-Idris-rejectPackageOpts arg-3)))))) (define Package-Idris-processPackage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (Source-Parser-parseFile 'erased arg-4 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Idris-parsePkgDesc arg-4)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-17946) (Core-Parser-Text-pure 'erased 'erased desc)))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((act-16 (Package-Idris-addFields arg-0 e-9 (Package-Idris-initPkgDesc e-8) ext-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((act-17 (Package-Idris-build arg-0 arg-1 arg-2 e-6 ext-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))(else (let ((act-18 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0))))))))))) ((1) (let ((act-17 (Package-Idris-build arg-0 arg-1 arg-2 e-6 ext-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (Package-Idris-install arg-0 arg-2 e-6 ext-0))(else (let ((act-18 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0))))))))))) ((2) (Package-Idris-clean arg-0 arg-2 e-6 ext-0)) (else (Package-Idris-runRepl arg-0 arg-2 e-6 ext-0)))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc arg-4 e-6) e-6) ext-0)))))))))))) -(define Package-Idris-processOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Package-Idris-case--33719-16474 e-5 e-6 arg-1 arg-0 (CommandLine-Idris-getOpts (Strings-Data-words e-6)))))))))))) +(define Package-Idris-processOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Package-Idris-case--33720-16474 e-5 e-6 arg-1 arg-0 (CommandLine-Idris-getOpts (Strings-Data-words e-6)))))))))))) (define PkgDesc-Package-Idris-preinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18)))) (define PkgDesc-Package-Idris-preclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20)))) (define PkgDesc-Package-Idris-prebuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16)))) @@ -7032,17 +7032,17 @@ (define Package-Idris-install (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-16 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-18 (vector-ref sc1 19))) e-18))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((toInstall (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((act-17 (let ((act-17 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((installPrefix (Strings-Prelude-C-43C-43 (let ((sc4 (let ((sc5 (let ((sc6 e-5)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-0 (vector-ref sc5 1))) e-0)))) (let ((e-4 (vector-ref sc4 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))))) (let ((act-18 (let ((act-18 (Directory-System-changeDir installPrefix ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (let ((act-19 (let ((act-19 ((Directory-Core-mkdirs (vector 1 (let ((sc6 arg-2)) (let ((e-0 (vector-ref sc6 1))) e-0)) (vector 0 ))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((act-20 (let ((act-20 (Directory-System-changeDir (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (cond ((equal? sc9 0) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-installFrom arg-0 (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)) (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) build)) (Strings-Prelude-C-43C-43 installPrefix (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)))) eta-0)) toInstall) ext-0))) (let ((sc10 act-21)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-22 (let ((act-22 (Directory-System-changeDir e-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) ext-0)))) (let ((sc11 act-22)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else ((Package-Idris-runScript (let ((sc12 arg-2)) (let ((e-19 (vector-ref sc12 20))) e-19))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))) (define Package-Idris-initPkgDesc (lambda (arg-0) (vector 0 arg-0 "0" "Anonymous" (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 )))) (define Package-Idris-foldlC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-6) (((((e-2 'erased) 'erased) (lambda (ma) (lambda (b) (lambda (eta-0) (let ((act-15 (ma eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Prelude-flip 'erased 'erased 'erased arg-4 b e-5) eta-0)))))))))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0))) arg-6)))))) -(define Package-Idris-foldWithKeysC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-1 ext-0) (Package-Idris-n--34824-17482-go 'erased arg-2 'erased arg-4 arg-3 (vector 0 ) ext-1 ext-0))) -(define Package-Idris-findIpkg (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (Directory-Core-findIpkgFile ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((act-16 (let ((act-16 (Directory-System-changeDir e-7 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (let ((act-17 (Source-Parser-parseFile 'erased e-9 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Idris-parsePkgDesc e-9)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-18324) (Core-Parser-Text-pure 'erased 'erased desc)))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((sc7 e-2)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-18 (Package-Idris-addFields arg-0 e-12 (Package-Idris-initPkgDesc e-13) ext-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-19 (Context-Core-setSourceDir arg-0 (let ((sc9 e-14)) (let ((e-15 (vector-ref sc9 16))) e-15)) ext-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-20 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc10 e-14)) (let ((e-23 (vector-ref sc10 15))) e-23))) ext-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-21 ((Package-Idris-n--35621-18221-loadDependencies arg-2 arg-1 arg-0 (let ((sc11 e-14)) (let ((e-28 (vector-ref sc11 11))) e-28))) ext-0))) (let ((sc11 act-21)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((sc12 arg-2)) (case (vector-ref sc12 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((e-3 (vector-ref sc12 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased e-10 (vector 1 e-3 (vector 0 )))))) (let ((act-22 (REPLOpts-Idris-setSource arg-1 srcC-39 ext-0))) (let ((sc13 act-22)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) ext-0)))) (let ((sc14 act-23)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-24 (let ((act-24 (IORef-Data-writeIORef 'erased arg-1 (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) (let ((e-24 (vector-ref sc15 2))) (let ((e-22 (vector-ref sc15 4))) (let ((e-4 (vector-ref sc15 5))) (let ((e-21 (vector-ref sc15 6))) (let ((e-20 (vector-ref sc15 7))) (vector 0 e-0 e-24 (vector 1 srcC-39) e-22 e-4 e-21 e-20)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) ext-0)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) ext-0))))))))))))))))))))))))))))))))))))))))) (else (let ((e-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc e-9 e-12) e-12) ext-0)))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) ext-0))))))))))) -(define Package-Idris-field (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))) "version") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))) "authors") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 2 eta-0 eta-1))) "maintainers") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 3 eta-0 eta-1))) "license") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))) "brief") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1))) "readme") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 6 eta-0 eta-1))) "homepage") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "sourceloc") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "bugtracker") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "options") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "opts") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 14 eta-0 eta-1))) "sourcedir") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 15 eta-0 eta-1))) "prebuild") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 16 eta-0 eta-1))) "postbuild") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 17 eta-0 eta-1))) "preinstall") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 18 eta-0 eta-1))) "postinstall") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 19 eta-0 eta-1))) "preclean") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32193-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 20 eta-0 eta-1))) "postclean") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "depends")) (lambda () (lambda (_-15208) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15219) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName))) (lambda () (lambda (ds) (Core-Parser-Text-pure 'erased 'erased (vector 9 ds))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "modules")) (lambda () (lambda (_-15198) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15249) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) 1) (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nsIdent)) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) ns))))))))))) (lambda () (lambda (ms) (Core-Parser-Text-pure 'erased 'erased (vector 10 ms))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "main")) (lambda () (lambda (_-15188) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15317) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nsIdent)) (lambda () (lambda (m) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 11 (vector 0 arg-0 start end) m))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "executable")) (lambda () (lambda (_-15178) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15367) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (e) (Core-Parser-Text-pure 'erased 'erased (vector 12 e))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Package-Idris-foldWithKeysC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-1 ext-0) (Package-Idris-n--34825-17482-go 'erased arg-2 'erased arg-4 arg-3 (vector 0 ) ext-1 ext-0))) +(define Package-Idris-findIpkg (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (Directory-Core-findIpkgFile ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((act-16 (let ((act-16 (Directory-System-changeDir e-7 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (let ((act-17 (Source-Parser-parseFile 'erased e-9 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Idris-parsePkgDesc e-9)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-18324) (Core-Parser-Text-pure 'erased 'erased desc)))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((sc7 e-2)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-18 (Package-Idris-addFields arg-0 e-12 (Package-Idris-initPkgDesc e-13) ext-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-19 (Context-Core-setSourceDir arg-0 (let ((sc9 e-14)) (let ((e-15 (vector-ref sc9 16))) e-15)) ext-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-20 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc10 e-14)) (let ((e-23 (vector-ref sc10 15))) e-23))) ext-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-21 ((Package-Idris-n--35622-18221-loadDependencies arg-2 arg-1 arg-0 (let ((sc11 e-14)) (let ((e-28 (vector-ref sc11 11))) e-28))) ext-0))) (let ((sc11 act-21)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((sc12 arg-2)) (case (vector-ref sc12 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((e-3 (vector-ref sc12 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased e-10 (vector 1 e-3 (vector 0 )))))) (let ((act-22 (REPLOpts-Idris-setSource arg-1 srcC-39 ext-0))) (let ((sc13 act-22)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) ext-0)))) (let ((sc14 act-23)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-24 (let ((act-24 (IORef-Data-writeIORef 'erased arg-1 (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) (let ((e-24 (vector-ref sc15 2))) (let ((e-22 (vector-ref sc15 4))) (let ((e-4 (vector-ref sc15 5))) (let ((e-21 (vector-ref sc15 6))) (let ((e-20 (vector-ref sc15 7))) (vector 0 e-0 e-24 (vector 1 srcC-39) e-22 e-4 e-21 e-20)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) ext-0)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) ext-0))))))))))))))))))))))))))))))))))))))))) (else (let ((e-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc e-9 e-12) e-12) ext-0)))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) ext-0))))))))))) +(define Package-Idris-field (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))) "version") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))) "authors") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 2 eta-0 eta-1))) "maintainers") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 3 eta-0 eta-1))) "license") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))) "brief") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1))) "readme") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 6 eta-0 eta-1))) "homepage") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "sourceloc") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "bugtracker") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "options") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "opts") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 14 eta-0 eta-1))) "sourcedir") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 15 eta-0 eta-1))) "prebuild") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 16 eta-0 eta-1))) "postbuild") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 17 eta-0 eta-1))) "preinstall") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 18 eta-0 eta-1))) "postinstall") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 19 eta-0 eta-1))) "preclean") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 20 eta-0 eta-1))) "postclean") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "depends")) (lambda () (lambda (_-15208) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15219) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName))) (lambda () (lambda (ds) (Core-Parser-Text-pure 'erased 'erased (vector 9 ds))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "modules")) (lambda () (lambda (_-15198) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15249) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) 1) (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nsIdent)) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) ns))))))))))) (lambda () (lambda (ms) (Core-Parser-Text-pure 'erased 'erased (vector 10 ms))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "main")) (lambda () (lambda (_-15188) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15317) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nsIdent)) (lambda () (lambda (m) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 11 (vector 0 arg-0 start end) m))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "executable")) (lambda () (lambda (_-15178) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15367) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (e) (Core-Parser-Text-pure 'erased 'erased (vector 12 e))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define PkgDesc-Package-Idris-executable (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13)))) (define PkgDesc-Package-Idris-depends (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10)))) (define Package-Idris-copyFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Binary-Utils-readFromFile arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Binary-Utils-writeToFile arg-1 e-2 ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) ext-0)))))))) (define Package-Idris-compileMain (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (REPL-Idris-loadMainFile arg-0 e-6 arg-1 e-5 arg-2 arg-4 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (REPL-Idris-compileExp arg-0 e-6 arg-1 e-5 arg-2 (vector 0 (REPLOpts-Idris-replFC) arg-3) arg-5 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))))))) -(define Package-Idris-clean (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((exec (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-3 (vector-ref sc1 4))) e-3)))) (let ((act-16 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-20 (vector-ref sc1 21))) e-20))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((pkgmods (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((toClean (List-Data-mapMaybe 'erased 'erased (lambda (ks) (let ((sc2 ks)) (case (vector-ref sc2 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-3 e-2)))))))) pkgmods))) (let ((act-17 (let ((act-17 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((builddir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 build (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "ttc")))))) (let ((execdir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) exec)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-3) (vector 1 v arg-3))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) toClean))) (let ((act-18 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-0) (lambda (eta-1) (Package-Idris-n--34941-17587-deleteFolder arg-2 arg-1 arg-0 builddir eta-0 eta-1))) (lambda (ks) (lambda (eta-0) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) eta-2)) (Core-Core-traverse 'erased 'erased (lambda (eta-2) (Package-Idris-n--34941-17588-deleteBin arg-2 arg-1 arg-0 builddir ks eta-2)) eta-0) eta-1)))) pkgTrie ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (Package-Idris-n--34941-17587-deleteFolder arg-2 arg-1 arg-0 builddir (vector 0 ) ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (e) (lambda (eta-0) (Package-Idris-n--34941-17586-delete arg-2 arg-1 arg-0 (Strings-Prelude-C-43C-43 execdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e)) eta-0)))) (let ((sc6 arg-2)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else ((Package-Idris-runScript (let ((sc7 arg-2)) (let ((e-21 (vector-ref sc7 22))) e-21))) ext-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))) -(define Package-Idris-build (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Package-Idris-addDeps arg-0 arg-3 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Package-Idris-processOptions arg-0 arg-2 (let ((sc2 arg-3)) (let ((e-14 (vector-ref sc2 15))) e-14))) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Package-Idris-runScript (let ((sc3 arg-3)) (let ((e-16 (vector-ref sc3 17))) e-16))) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((toBuild (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc4 arg-3)) (let ((e-11 (vector-ref sc4 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-snd 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc4 arg-3)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((sc4 arg-3)) (let ((e-12 (vector-ref sc4 13))) e-12))))) (let ((act-19 (ModTree-Idris-buildAll arg-0 arg-1 arg-2 toBuild ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((act-20 (let ((_-0 (vector 0 ))) ((Package-Idris-case--33886-16652 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 toBuild _-0 (let ((sc6 arg-3)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 ((Package-Idris-runScript (let ((sc7 arg-3)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-9) ext-0)))))))))))))))))))))))))))))))) +(define Package-Idris-clean (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((exec (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-3 (vector-ref sc1 4))) e-3)))) (let ((act-16 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-20 (vector-ref sc1 21))) e-20))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((pkgmods (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((toClean (List-Data-mapMaybe 'erased 'erased (lambda (ks) (let ((sc2 ks)) (case (vector-ref sc2 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-3 e-2)))))))) pkgmods))) (let ((act-17 (let ((act-17 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((builddir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 build (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "ttc")))))) (let ((execdir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) exec)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-3) (vector 1 v arg-3))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) toClean))) (let ((act-18 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-0) (lambda (eta-1) (Package-Idris-n--34942-17587-deleteFolder arg-2 arg-1 arg-0 builddir eta-0 eta-1))) (lambda (ks) (lambda (eta-0) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) eta-2)) (Core-Core-traverse 'erased 'erased (lambda (eta-2) (Package-Idris-n--34942-17588-deleteBin arg-2 arg-1 arg-0 builddir ks eta-2)) eta-0) eta-1)))) pkgTrie ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (Package-Idris-n--34942-17587-deleteFolder arg-2 arg-1 arg-0 builddir (vector 0 ) ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (e) (lambda (eta-0) (Package-Idris-n--34942-17586-delete arg-2 arg-1 arg-0 (Strings-Prelude-C-43C-43 execdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e)) eta-0)))) (let ((sc6 arg-2)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else ((Package-Idris-runScript (let ((sc7 arg-2)) (let ((e-21 (vector-ref sc7 22))) e-21))) ext-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))) +(define Package-Idris-build (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Package-Idris-addDeps arg-0 arg-3 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Package-Idris-processOptions arg-0 arg-2 (let ((sc2 arg-3)) (let ((e-14 (vector-ref sc2 15))) e-14))) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Package-Idris-runScript (let ((sc3 arg-3)) (let ((e-16 (vector-ref sc3 17))) e-16))) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((toBuild (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc4 arg-3)) (let ((e-11 (vector-ref sc4 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-snd 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc4 arg-3)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((sc4 arg-3)) (let ((e-12 (vector-ref sc4 13))) e-12))))) (let ((act-19 (ModTree-Idris-buildAll arg-0 arg-1 arg-2 toBuild ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((act-20 (let ((_-0 (vector 0 ))) ((Package-Idris-case--33887-16652 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 toBuild _-0 (let ((sc6 arg-3)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 ((Package-Idris-runScript (let ((sc7 arg-3)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-9) ext-0)))))))))))))))))))))))))))))))) (define Package-Idris-bitraverseC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (lambda (eta-2) (vector 0 eta-2))) eta-1)) (arg-4 e-2) eta-0)))) ((1) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (lambda (eta-2) (vector 1 eta-2))) eta-1)) (arg-5 e-5) eta-0)))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 2 eta-3 eta-4)))) eta-2)) (arg-4 e-8) eta-1)) (arg-5 e-9) eta-0))))))))) -(define Package-Idris-addFields (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.ParsedMods" ) (vector 0 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.MainMod" ) (vector 0 ) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Package-Idris-n--33512-16263-go arg-2 arg-1 arg-0 e-5 e-6 arg-1 arg-2) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-setSourceDir arg-0 (let ((sc3 e-7)) (let ((e-15 (vector-ref sc3 16))) e-15)) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased e-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased e-6 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-n--33512-16262-toSource arg-2 arg-1 arg-0 eta-0)) e-9) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Package-Idris-n--33512-16262-toSource arg-2 arg-1 arg-0 eta-0)) e-10) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc8 e-7)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-29 (vector-ref sc8 6))) (let ((e-28 (vector-ref sc8 7))) (let ((e-27 (vector-ref sc8 8))) (let ((e-26 (vector-ref sc8 9))) (let ((e-25 (vector-ref sc8 10))) (let ((e-24 (vector-ref sc8 11))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (let ((e-21 (vector-ref sc8 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-25 e-24 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))) ext-0)))))))))))))))))))))))))))))))))))))))))) +(define Package-Idris-addFields (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.ParsedMods" ) (vector 0 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.MainMod" ) (vector 0 ) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Package-Idris-n--33513-16263-go arg-2 arg-1 arg-0 e-5 e-6 arg-1 arg-2) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-setSourceDir arg-0 (let ((sc3 e-7)) (let ((e-15 (vector-ref sc3 16))) e-15)) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased e-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased e-6 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-n--33513-16262-toSource arg-2 arg-1 arg-0 eta-0)) e-9) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Package-Idris-n--33513-16262-toSource arg-2 arg-1 arg-0 eta-0)) e-10) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc8 e-7)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-29 (vector-ref sc8 6))) (let ((e-28 (vector-ref sc8 7))) (let ((e-27 (vector-ref sc8 8))) (let ((e-26 (vector-ref sc8 9))) (let ((e-25 (vector-ref sc8 10))) (let ((e-24 (vector-ref sc8 11))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (let ((e-21 (vector-ref sc8 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-25 e-24 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))) ext-0)))))))))))))))))))))))))))))))))))))))))) (define Package-Idris-addField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-23 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-23 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-3 e-22 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((2) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-23 (vector-ref sc1 5))) (let ((e-22 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 (vector 1 e-5) e-23 e-22 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (let ((e-23 (vector-ref sc1 7))) (let ((e-22 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 e-7) e-5 e-23 e-22 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((4) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-23 (vector-ref sc1 9))) (let ((e-22 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 e-9) e-6 e-7 e-23 e-22 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((5) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-23 (vector-ref sc1 11))) (let ((e-22 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 e-11) e-7 e-8 e-9 e-23 e-22 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((6) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-23 (vector-ref sc1 13))) (let ((e-22 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 e-13) e-8 e-9 e-10 e-11 e-23 e-22 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((7) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-23 (vector-ref sc1 15))) (let ((e-22 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 e-15) e-9 e-10 e-11 e-12 e-13 e-23 e-22 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((8) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-23 (vector-ref sc1 17))) (let ((e-22 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 e-17) e-10 e-11 e-12 e-13 e-14 e-15 e-23 e-22 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((9) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-22 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-18 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-22 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((10) (let ((e-19 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-1 e-19 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))) ((11) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-2 (vector 1 (vector 0 e-20 e-21)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0))))))))) ((12) (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-22) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((13) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (vector 1 (vector 0 e-23 e-24)) e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((14) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector 1 e-26) e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((15) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (vector 1 (vector 0 e-27 e-28)) e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((16) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 e-29 e-30)) e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((17) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 e-31 e-32)) e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((18) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 e-33 e-34)) e-20 e-21)))))))))))))))))))))))) eta-0))))) ((19) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 (vector 0 e-35 e-36)) e-21)))))))))))))))))))))))) eta-0))))) (else (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (vector 1 (vector 0 e-37 e-38)))))))))))))))))))))))))) eta-0))))))))) (define Package-Idris-addDeps (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-0 eta-0 eta-1))) (let ((sc1 arg-1)) (let ((e-10 (vector-ref sc1 11))) e-10))) ext-0))))))) (define These-Data-these (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (arg-3 e-2))) ((1) (let ((e-5 (vector-ref sc0 1))) (arg-4 e-5))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) ((arg-5 e-8) e-9)))))))) @@ -7052,30 +7052,30 @@ (define StringTrie-Data-singleton (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-singleton 'erased e-3 arg-2)))))))))) (define StringTrie-Data-insertWith (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (These-Data-these 'erased 'erased 'erased (lambda (eta-0) (vector 0 (arg-2 (vector 1 eta-0)))) (lambda (eta-0) (vector 2 (arg-2 (vector 0 )) eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 2 (arg-2 (vector 1 eta-0)) eta-1))) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (These-Data-these 'erased 'erased 'erased (lambda (x) (vector 2 x (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-n--1600-3167-end 'erased e-2 e-3 arg-3 arg-2)))) (lambda (eta-0) (vector 1 (StringTrie-Data-n--1600-3168-rec 'erased e-2 e-3 arg-3 arg-2 eta-0))) (lambda (x) (lambda (eta-0) (vector 2 x (StringTrie-Data-n--1600-3168-rec 'erased e-2 e-3 arg-3 arg-2 eta-0)))) arg-3)))))))) (define StringTrie-Data-empty (lambda (arg-0) (vector 1 (StringMap-Data-empty 'erased)))) -(define REPL-IDEMode-Idris-case--31942-2556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) e-3 (Commands-IDEMode-Idris-version 2 0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))) -(define REPL-IDEMode-Idris-case--31753-2447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-n--31590-2251-updateOutput arg-0 arg-1 arg-2 arg-3 arg-4 e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (REPL-IDEMode-Idris-processCatch arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 ((REPL-IDEMode-Idris-handleIDEResult arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-6 e-8) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Unrecognised command: " (Commands-IDEMode-Idris-show_Show__SExp arg-11))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))))))))))) -(define REPL-IDEMode-Idris-case--31696-2378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Parse error: " (Support-Parser-show_Show__ParseError e-2))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-IDEMode-Idris-case--31753-2447 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Commands-IDEMode-Idris-getMsg e-5)))))))) -(define REPL-IDEMode-Idris-case--31654-2331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((end 1)) (REPL-IDEMode-Idris-case--31696-2378 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 end (Parser-IDEMode-Idris-parseSExp arg-9)))))))) -(define REPL-IDEMode-Idris-case--31590-2297 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (REPL-IDEMode-Idris-getInput e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (File-System-fEOF e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--31696-2378 arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-2 e-1 res e-5 end (Parser-IDEMode-Idris-parseSExp e-5)) eta-0))))))))))))))))))))))))) -(define REPL-IDEMode-Idris-case--31601-2259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) eta-0)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define REPL-IDEMode-Idris-case--31403-2140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 (vector 1 "") (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 1 e-2) (vector 0 ))))))))) -(define REPL-IDEMode-Idris-case--31402-2092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Nat eta-0)) (vector 1 e-2 (vector 1 e-6 (vector 1 e-7 (vector 0 )))))))))))))) -(define REPL-IDEMode-Idris-case--31214-2024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3)))))))) -(define REPL-IDEMode-Idris-case--30550-1291 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-getFLine arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (Strings-Prelude-C-43C-43 (Prelude-pack arg-1) act-15) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-getNChars arg-0 (Prelude-cast_Cast__Int_Integer e-2)) eta-0))) (Prelude-pure_Applicative__IO 'erased (Prelude-pack act-15) eta-0))))))))) -(define REPL-IDEMode-Idris-case--30482-1220 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased e-2 eta-0)))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Failed to read a line" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))) -(define REPL-IDEMode-Idris-case--30421-1179 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased e-2 eta-0)))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))) -(define REPL-IDEMode-Idris-case--30412-1152 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Alas the file is done, aborting" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (else (lambda (eta-0) (let ((act-15 (File-System-fGetChar arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased e-2 eta-0))) (else (let ((act-16 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))))))) -(define REPL-IDEMode-Idris-case--30293-1093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (REPL-IDEMode-Idris-socketToFile e-8))))))))) -(define REPL-IDEMode-Idris-case--30243-1038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to listen on socket with error: " (Prelude-show_Show__Int arg-5))) eta-0))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Prelude-show_Show__Int arg-0) eta-0))) (let ((act-16 (Socket-Network-accept arg-2 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) ((REPL-IDEMode-Idris-socketToFile e-8) eta-0))))))))))))))) -(define REPL-IDEMode-Idris-case--30190-992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to bind socket with error: " (Prelude-show_Show__Int arg-4))) eta-0))) (else (lambda (eta-0) (let ((act-15 (Socket-Network-listen arg-2 eta-0))) ((REPL-IDEMode-Idris-case--30243-1038 arg-0 arg-1 arg-2 arg-3 arg-4 act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) eta-0)))))))) -(define REPL-IDEMode-Idris-case--30174-941 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) eta-0))) (let ((act-16 (PrimIO-putStrLn "Failed to open socket" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-1)) arg-0 eta-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--30190-992 arg-0 arg-1 e-5 osock act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) eta-0)))))))))) -(define REPL-IDEMode-Idris-case--30109-891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 "Failed to fdopen socket file descriptor") eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-4) eta-0))))))) -(define REPL-IDEMode-Idris-n--31214-2088-versionSExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (vector 1 (REPL-IDEMode-Idris-n--31214-2086-semverSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (REPL-IDEMode-Idris-n--31214-2087-tagSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 )))))) -(define REPL-IDEMode-Idris-n--31590-2251-updateOutput (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (REPLOpts-Idris-getOutput arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) ext-0))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) -(define REPL-IDEMode-Idris-n--31214-2087-tagSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--31403-2140 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) -(define REPL-IDEMode-Idris-n--31214-2086-semverSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--31402-2092 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))) -(define REPL-IDEMode-Idris-n--31214-2075-optionsSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt eta-0)) arg-0)))) -(define REPL-IDEMode-Idris-n--31214-2060-holesSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-sexpName eta-0)) arg-0)))) +(define REPL-IDEMode-Idris-case--31943-2556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) e-3 (Commands-IDEMode-Idris-version 2 0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))) +(define REPL-IDEMode-Idris-case--31754-2447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-n--31591-2251-updateOutput arg-0 arg-1 arg-2 arg-3 arg-4 e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (REPL-IDEMode-Idris-processCatch arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 ((REPL-IDEMode-Idris-handleIDEResult arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-6 e-8) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Unrecognised command: " (Commands-IDEMode-Idris-show_Show__SExp arg-11))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))))))))))) +(define REPL-IDEMode-Idris-case--31697-2378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Parse error: " (Support-Parser-show_Show__ParseError e-2))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-IDEMode-Idris-case--31754-2447 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Commands-IDEMode-Idris-getMsg e-5)))))))) +(define REPL-IDEMode-Idris-case--31655-2331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((end 1)) (REPL-IDEMode-Idris-case--31697-2378 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 end (Parser-IDEMode-Idris-parseSExp arg-9)))))))) +(define REPL-IDEMode-Idris-case--31591-2297 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (REPL-IDEMode-Idris-getInput e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (File-System-fEOF e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--31697-2378 arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-2 e-1 res e-5 end (Parser-IDEMode-Idris-parseSExp e-5)) eta-0))))))))))))))))))))))))) +(define REPL-IDEMode-Idris-case--31602-2259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) eta-0)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define REPL-IDEMode-Idris-case--31404-2140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 (vector 1 "") (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 1 e-2) (vector 0 ))))))))) +(define REPL-IDEMode-Idris-case--31403-2092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Nat eta-0)) (vector 1 e-2 (vector 1 e-6 (vector 1 e-7 (vector 0 )))))))))))))) +(define REPL-IDEMode-Idris-case--31215-2024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3)))))))) +(define REPL-IDEMode-Idris-case--30551-1291 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-getFLine arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (Strings-Prelude-C-43C-43 (Prelude-pack arg-1) act-15) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-getNChars arg-0 (Prelude-cast_Cast__Int_Integer e-2)) eta-0))) (Prelude-pure_Applicative__IO 'erased (Prelude-pack act-15) eta-0))))))))) +(define REPL-IDEMode-Idris-case--30483-1220 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased e-2 eta-0)))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Failed to read a line" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))) +(define REPL-IDEMode-Idris-case--30422-1179 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased e-2 eta-0)))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))) +(define REPL-IDEMode-Idris-case--30413-1152 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Alas the file is done, aborting" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (else (lambda (eta-0) (let ((act-15 (File-System-fGetChar arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased e-2 eta-0))) (else (let ((act-16 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))))))) +(define REPL-IDEMode-Idris-case--30294-1093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (REPL-IDEMode-Idris-socketToFile e-8))))))))) +(define REPL-IDEMode-Idris-case--30244-1038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to listen on socket with error: " (Prelude-show_Show__Int arg-5))) eta-0))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Prelude-show_Show__Int arg-0) eta-0))) (let ((act-16 (Socket-Network-accept arg-2 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) ((REPL-IDEMode-Idris-socketToFile e-8) eta-0))))))))))))))) +(define REPL-IDEMode-Idris-case--30191-992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to bind socket with error: " (Prelude-show_Show__Int arg-4))) eta-0))) (else (lambda (eta-0) (let ((act-15 (Socket-Network-listen arg-2 eta-0))) ((REPL-IDEMode-Idris-case--30244-1038 arg-0 arg-1 arg-2 arg-3 arg-4 act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) eta-0)))))))) +(define REPL-IDEMode-Idris-case--30175-941 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) eta-0))) (let ((act-16 (PrimIO-putStrLn "Failed to open socket" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-1)) arg-0 eta-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--30191-992 arg-0 arg-1 e-5 osock act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) eta-0)))))))))) +(define REPL-IDEMode-Idris-case--30110-891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 "Failed to fdopen socket file descriptor") eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-4) eta-0))))))) +(define REPL-IDEMode-Idris-n--31215-2088-versionSExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (vector 1 (REPL-IDEMode-Idris-n--31215-2086-semverSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (REPL-IDEMode-Idris-n--31215-2087-tagSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 )))))) +(define REPL-IDEMode-Idris-n--31591-2251-updateOutput (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (REPLOpts-Idris-getOutput arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) ext-0))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) +(define REPL-IDEMode-Idris-n--31215-2087-tagSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--31404-2140 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) +(define REPL-IDEMode-Idris-n--31215-2086-semverSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--31403-2092 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))) +(define REPL-IDEMode-Idris-n--31215-2075-optionsSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt eta-0)) arg-0)))) +(define REPL-IDEMode-Idris-n--31215-2060-holesSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-sexpName eta-0)) arg-0)))) (define REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-implicits") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-0) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-namespace") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-types") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-2) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "eval") (vector 1 (REPL-IDEMode-Idris-toSExp_SExpable__REPLEval e-3) (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "editor") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-4) (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "cg") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-5) (vector 0 )))))))))) (define REPL-IDEMode-Idris-toSExp_SExpable__REPLEval (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 "typecheck")) ((1) (vector 4 "normalise")) (else (vector 4 "execute")))))) (define REPL-IDEMode-Idris-todoCmd (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-iputStrLn arg-0 (Strings-Prelude-C-43C-43 arg-1 ": command not yet implemented. Hopefully soon!") ext-0))) @@ -7089,15 +7089,15 @@ (define REPL-IDEMode-Idris-printIDEResultWithHighlight (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2) (vector 1 (vector 0 (vector 0 )) (vector 0 )))))))) (define REPL-IDEMode-Idris-printIDEResult (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2) (vector 0 ))))))) (define REPL-IDEMode-Idris-printIDEError (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "error") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-2) (vector 0 ))))))) -(define REPL-IDEMode-Idris-loop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (REPLOpts-Idris-getOutput arg-4 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (REPLCommon-Idris-printError arg-4 "Running idemode but output isn't" ext-0)) (else (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((act-16 (let ((act-16 (REPL-IDEMode-Idris-getInput e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (File-System-fEOF e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--31696-2378 arg-4 arg-3 arg-2 arg-1 arg-0 e-3 e-2 e-1 res e-6 end (Parser-IDEMode-Idris-parseSExp e-6)) ext-0))))))))))))))))))))))))))))) -(define REPL-IDEMode-Idris-initIDESocketFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Socket-Network-socket (vector 2 ) (vector 1 ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) ext-0))) (let ((act-17 (PrimIO-putStrLn "Failed to open socket" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-0)) arg-1 ext-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--30190-992 arg-1 arg-0 e-5 osock act-16 (Prelude-C-47C-61_Eq__Int act-16 (Prelude-fromInteger_Num__Int 0))) ext-0)))))))))) +(define REPL-IDEMode-Idris-loop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (REPLOpts-Idris-getOutput arg-4 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (REPLCommon-Idris-printError arg-4 "Running idemode but output isn't" ext-0)) (else (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((act-16 (let ((act-16 (REPL-IDEMode-Idris-getInput e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (File-System-fEOF e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--31697-2378 arg-4 arg-3 arg-2 arg-1 arg-0 e-3 e-2 e-1 res e-6 end (Parser-IDEMode-Idris-parseSExp e-6)) ext-0))))))))))))))))))))))))))))) +(define REPL-IDEMode-Idris-initIDESocketFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Socket-Network-socket (vector 2 ) (vector 1 ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) ext-0))) (let ((act-17 (PrimIO-putStrLn "Failed to open socket" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-0)) arg-1 ext-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--30191-992 arg-1 arg-0 e-5 osock act-16 (Prelude-C-47C-61_Eq__Int act-16 (Prelude-fromInteger_Num__Int 0))) ext-0)))))))))) (define REPL-IDEMode-Idris-idePutStrLn (lambda (arg-0 arg-1 arg-2) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-0 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-2) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-1) (vector 0 )))))))) (define REPL-IDEMode-Idris-handleIDEResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((21) (REPL-IDEMode-Idris-idePutStrLn arg-5 arg-6 "Bye for now!"))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7)))))) (define REPL-IDEMode-Idris-getNChars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-getChar arg-0 eta-0))) (let ((act-16 ((REPL-IDEMode-Idris-getNChars arg-0 e-0) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15 act-16) eta-0)))))))))) -(define REPL-IDEMode-Idris-getInput (lambda (arg-0 ext-0) (let ((act-15 ((REPL-IDEMode-Idris-getNChars arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) ext-0))) ((REPL-IDEMode-Idris-case--30550-1291 arg-0 act-15 (Hex-Utils-fromHexChars (List-Data-reverse 'erased act-15))) ext-0)))) +(define REPL-IDEMode-Idris-getInput (lambda (arg-0 ext-0) (let ((act-15 ((REPL-IDEMode-Idris-getNChars arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) ext-0))) ((REPL-IDEMode-Idris-case--30551-1291 arg-0 act-15 (Hex-Utils-fromHexChars (List-Data-reverse 'erased act-15))) ext-0)))) (define REPL-IDEMode-Idris-getFLine (lambda (arg-0 ext-0) (let ((act-15 (File-System-fGetLine arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased e-2 ext-0))) (else (let ((act-16 (PrimIO-putStrLn "Failed to read a line" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0)))))))) (define REPL-IDEMode-Idris-getChar (lambda (arg-0 ext-0) (let ((act-15 (File-System-fEOF arg-0 ext-0))) (let ((sc0 act-15)) (cond ((equal? sc0 0) (let ((act-16 (PrimIO-putStrLn "Alas the file is done, aborting" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))) (else (let ((act-16 (File-System-fGetChar arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased e-2 ext-0))) (else (let ((act-17 (PrimIO-putStrLn "Failed to read a character" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0)))))))))))) -(define REPL-IDEMode-Idris-displayIDEResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-4))) ((3) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (REPL-Idris-displayHelp)))) ((4) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-5)))) ((1) (let ((e-27 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-27)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((5) (let ((e-7 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" e-7))))) ((6) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-9)))))))) ((7) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 )))) ((8) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))))))) ((9) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error(s) building file " (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-show_Show__Error eta-0)) e-14))))))))) ((10) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "No file can be reloaded")) ((11) (let ((e-15 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-15 "'")))))) ((12) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "Compilation failed")) ((13) (let ((e-16 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-16 " written")))))) ((14) (let ((e-17 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-17))))) ((15) (let ((e-18 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-handleMissing eta-0)) e-18)))))) ((16) (let ((e-19 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-19)))))) ((17) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 ))))(else (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31214-2060-holesSexp e-20 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0))))))) ((19) (let ((e-21 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-21)))))) ((18) (let ((e-22 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31214-2075-optionsSexp e-22 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((20) (let ((e-23 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31214-2088-versionSExp e-23 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((22) (let ((e-24 (vector-ref sc1 1))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((0) (let ((e-29 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" e-29))))) ((1) (let ((e-30 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-30))) ((2) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-31 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-33) "\u000a")))) e-34))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Name eta-0)) e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-3))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define REPL-IDEMode-Idris-displayIDEResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-4))) ((3) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (REPL-Idris-displayHelp)))) ((4) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-5)))) ((1) (let ((e-27 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-27)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((5) (let ((e-7 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" e-7))))) ((6) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-9)))))))) ((7) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 )))) ((8) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))))))) ((9) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error(s) building file " (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-show_Show__Error eta-0)) e-14))))))))) ((10) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "No file can be reloaded")) ((11) (let ((e-15 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-15 "'")))))) ((12) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "Compilation failed")) ((13) (let ((e-16 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-16 " written")))))) ((14) (let ((e-17 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-17))))) ((15) (let ((e-18 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-handleMissing eta-0)) e-18)))))) ((16) (let ((e-19 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-19)))))) ((17) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 ))))(else (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31215-2060-holesSexp e-20 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0))))))) ((19) (let ((e-21 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-21)))))) ((18) (let ((e-22 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31215-2075-optionsSexp e-22 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((20) (let ((e-23 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31215-2088-versionSExp e-23 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((22) (let ((e-24 (vector-ref sc1 1))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((0) (let ((e-29 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" e-29))))) ((1) (let ((e-30 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-30))) ((2) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-31 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-33) "\u000a")))) e-34))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Name eta-0)) e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-3))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) (define Data-Socket-Network-case--2259-1818 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-1 e-4 e-7 e-10)))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))) (define Data-Socket-Network-n--2259-1794-toIntC-39 (lambda (arg-0 ext-0) (Prelude-cast_Cast__String_Integer ext-0))) (define Data-Socket-Network-n--2259-1795-toInt (lambda (arg-0 arg-1) (Prelude-fromInteger_Num__Int (Data-Socket-Network-n--2259-1794-toIntC-39 arg-0 arg-1)))) @@ -7126,18 +7126,18 @@ (define Raw-Socket-Network-case--2164-468 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-15 (FFI-Network-idrnet_sockaddr_ipv4 arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (Data-Socket-Network-parseIPv4 act-15) eta-0)))) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 ) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 3 ) eta-0))))))))) (define Raw-Socket-Network-sockaddr_free (lambda (arg-0 ext-0) (FFI-Network-idrnet_free arg-0 ext-0))) (define Raw-Socket-Network-getSockAddr (lambda (arg-0 ext-0) (let ((act-15 (FFI-Network-idrnet_sockaddr_family arg-0 ext-0))) ((Raw-Socket-Network-case--2164-468 arg-0 act-15 (Data-Socket-Network-getSocketFamily act-15)) ext-0)))) -(define SyntaxHighlight-IDEMode-Idris-case--30567-12805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) ext-0))) -(define SyntaxHighlight-IDEMode-Idris-case--30334-12598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 ))))))) -(define SyntaxHighlight-IDEMode-Idris-case--30247-12493 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "output") (vector 1 arg-0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 ))))))))))))) -(define SyntaxHighlight-IDEMode-Idris-n--30303-12533-hlt (lambda (arg-0 arg-1) (vector 1 arg-0 (vector 0 )))) +(define SyntaxHighlight-IDEMode-Idris-case--30568-12805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) ext-0))) +(define SyntaxHighlight-IDEMode-Idris-case--30335-12598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 ))))))) +(define SyntaxHighlight-IDEMode-Idris-case--30248-12493 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "output") (vector 1 arg-0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 ))))))))))))) +(define SyntaxHighlight-IDEMode-Idris-n--30304-12533-hlt (lambda (arg-0 arg-1) (vector 1 arg-0 (vector 0 )))) (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 (vector 1 (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__FC e-0) (vector 1 (vector 0 (vector 1 (vector 0 (vector 1 (vector 4 "name") (vector 1 (vector 1 (Name-Core-show_Show__Name e-1)) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "namespace") (vector 1 (vector 1 e-7) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "decor") (vector 1 (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Decoration e-4) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "implicit") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-2) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "key") (vector 1 (vector 1 e-3) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "doc-overview") (vector 1 (vector 1 e-5) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "type") (vector 1 (vector 1 e-6) (vector 0 )))) (vector 0 ))))))))) (vector 0 ))))))))))))))) (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__FC (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (vector 0 (vector 1 (vector 0 (vector 1 (vector 4 "filename") (vector 1 (vector 1 e-0) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "start") (vector 1 (vector 3 (Prelude-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-5) (Prelude-fromInteger_Num__Integer 1))) (vector 1 (vector 3 (Prelude-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-6) (Prelude-fromInteger_Num__Integer 1))) (vector 0 ))))) (vector 1 (vector 0 (vector 1 (vector 4 "end") (vector 1 (vector 3 (Prelude-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-9) (Prelude-fromInteger_Num__Integer 1))) (vector 1 (vector 3 (Prelude-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-10) (Prelude-fromInteger_Num__Integer 1))) (vector 0 ))))) (vector 0 ))))))))))))))) (else (vector 0 (vector 0 ))))))) (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Decoration (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 "type")) ((1) (vector 4 "function")) ((2) (vector 4 "data")) ((3) (vector 4 "keyword")) (else (vector 4 "bound")))))) (define SyntaxHighlight-IDEMode-Idris-__Impl_SExpable_Highlight (lambda (ext-0) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight ext-0))) -(define SyntaxHighlight-IDEMode-Idris-printOutput (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((SyntaxHighlight-IDEMode-Idris-case--30247-12493 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0)))))))) +(define SyntaxHighlight-IDEMode-Idris-printOutput (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((SyntaxHighlight-IDEMode-Idris-case--30248-12493 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0)))))))) (define SyntaxHighlight-IDEMode-Idris-outputSyntaxHighlighting (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-1) (List-Data-filter 'erased (lambda (eta-2) (SyntaxHighlight-IDEMode-Idris-inFile arg-2 eta-2)) (let ((sc0 eta-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) eta-0)) (lambda (eta-0) (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (SyntaxHighlight-IDEMode-Idris-outputNameSyntax arg-1 eta-0)) e-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) ext-0)))))))))))) (define SyntaxHighlight-IDEMode-Idris-outputNameSyntax (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((dec (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 ))))))) (let ((hilite (Prelude-map_Functor__Maybe 'erased 'erased (lambda (d) (vector 0 e-2 e-6 1 "" d "" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-11) "")) dec))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (SyntaxHighlight-IDEMode-Idris-outputHighlight arg-0 eta-0 eta-1)))) hilite))))))))))))) -(define SyntaxHighlight-IDEMode-Idris-outputHighlight (lambda (arg-0 arg-1 ext-0) (SyntaxHighlight-IDEMode-Idris-printOutput arg-0 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (vector 0 (vector 1 (vector 4 "highlight-source") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased (lambda (arg-16297) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight arg-16297)) (SyntaxHighlight-IDEMode-Idris-n--30303-12533-hlt arg-1 arg-0)) (vector 0 )))) (vector 0 )))) ext-0))) +(define SyntaxHighlight-IDEMode-Idris-outputHighlight (lambda (arg-0 arg-1 ext-0) (SyntaxHighlight-IDEMode-Idris-printOutput arg-0 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (vector 0 (vector 1 (vector 4 "highlight-source") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased (lambda (arg-16297) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight arg-16297)) (SyntaxHighlight-IDEMode-Idris-n--30304-12533-hlt arg-1 arg-0)) (vector 0 )))) (vector 0 )))) ext-0))) (define SyntaxHighlight-IDEMode-Idris-inFile (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-4 arg-0))) (else 1))))))) (define Parser-IDEMode-Idris-case--13208-15366 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Parser-IDEMode-Idris-n--13208-15342-notComment arg-0 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 (vector 14 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3))))))))) (define Parser-IDEMode-Idris-case--13210-15347 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) 1)(else 0))))) diff --git a/bootstrap/idris2_app/idris2.ss b/bootstrap/idris2_app/idris2.ss index d36562ba2..f14d3f84e 100755 --- a/bootstrap/idris2_app/idris2.ss +++ b/bootstrap/idris2_app/idris2.ss @@ -386,33 +386,33 @@ (define prim__cast_IntDouble (lambda (arg-0) (exact->inexact arg-0))) (define prim__cast_IntegerDouble (lambda (arg-0) (exact->inexact arg-0))) (define prim__cast_IntChar (lambda (arg-0) (integer->char arg-0))) -(define Main-case--32934-9974 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain arg-0 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-1))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))))))) -(define Main-case--32924-9962 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Main-quitOpts e-2) eta-0))) (let ((sc1 act-15)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn e-5 eta-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0))))))))) -(define Main-case--31615-9731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc1 (Prelude-not (let ((sc2 arg-21)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 arg-19 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-15 (REPL-Idris-loadMainFile arg-4 arg-19 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-displayErrors arg-4 arg-19 arg-5 arg-6 arg-14 e-5) eta-1))))))) eta-0)))))))) -(define Main-case--31835-9601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) -(define Main-case--32138-9334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-5 e-5) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0)))))))))))) -(define Main-case--31994-9267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (PrimIO-putStrLn e-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-6 e-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0)))))))))))))))))))) -(define Main-case--31913-9147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 (File-System-stdin) (File-System-stdout)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))) (else (Main-case--31994-9267 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 (CommandLine-Idris-ideSocketModeHostPort arg-0))))))) -(define Main-case--31835-9091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (Main-case--31913-9147 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 (Prelude-not arg-11))) (else (lambda (eta-0) (let ((act-15 (REPL-Idris-repl arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-showTimeRecord arg-4 eta-0))))))))))) -(define Main-case--31615-9038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Main-case--31835-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((doRepl 1)) ((Main-case--31835-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 6))) e-8))) eta-0)))))))))))))))))) -(define Main-case--31615-8938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (Package-Idris-findIpkg arg-4 arg-14 arg-13 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-13) eta-0))))))) -(define Main-case--31523-8852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((sc1 (Main-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Main-updateREPLOpts arg-14 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-getSession arg-4 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((sc5 (Prelude-not (let ((sc6 e-8)) (let ((e-1 (vector-ref sc6 2))) e-1))))) (cond ((equal? sc5 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((_-0 0)) ((Main-case--31615-8938 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 3))) e-2))) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc8 (Prelude-not (let ((sc9 e-8)) (let ((e-0 (vector-ref sc9 1))) e-0))))) (cond ((equal? sc8 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-6 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc7 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-21 (REPL-Idris-loadMainFile arg-4 e-6 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-11 (vector-ref sc8 1))) ((REPL-Idris-displayErrors arg-4 e-6 arg-5 arg-6 arg-14 e-11) eta-1))))))) eta-0))))))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 ((SetOptions-Idris-postOptions arg-4 e-6 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 0)) (let ((sc9 e-12)) (cond ((equal? sc9 0) (let ((doRepl 0)) ((Main-case--31835-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-24 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((doRepl 1)) ((Main-case--31835-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 doRepl e-13 e-14 (let ((sc12 e-13)) (let ((e-16 (vector-ref sc12 6))) e-16))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--31398-8775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((Package-Idris-processPackageOpts arg-4 arg-5 arg-14 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-not e-5))) (cond ((equal? sc2 0) (let ((act-16 ((SetOptions-Idris-preOptions arg-4 arg-14 arg-0) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((finish 1)) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-17 (let ((sc5 (Main-checkVerbose arg-0))) (cond ((equal? sc5 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-19 (Main-updateREPLOpts arg-14 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-20 (Context-Core-getSession arg-4 eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-21 (let ((sc9 (Prelude-not (let ((sc10 e-10)) (let ((e-1 (vector-ref sc10 2))) e-1))))) (cond ((equal? sc9 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-22 (let ((_-0 0)) ((Main-case--31615-8938 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 (let ((sc10 e-10)) (let ((e-2 (vector-ref sc10 3))) e-2))) eta-0)))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-23 (let ((sc11 e-12)) (case (vector-ref sc11 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc12 (Prelude-not (let ((sc13 e-10)) (let ((e-0 (vector-ref sc13 1))) e-0))))) (cond ((equal? sc12 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-8 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc11 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-23 (REPL-Idris-loadMainFile arg-4 e-8 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc12 act-23)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-13 (vector-ref sc12 1))) ((REPL-Idris-displayErrors arg-4 e-8 arg-5 arg-6 arg-14 e-13) eta-1))))))) eta-0))))))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-24 ((SetOptions-Idris-postOptions arg-4 e-8 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc12 1))) (let ((_-0 0)) (let ((sc13 e-14)) (cond ((equal? sc13 0) (let ((doRepl 0)) ((Main-case--31835-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-26 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((doRepl 1)) ((Main-case--31835-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl e-15 e-16 (let ((sc16 e-15)) (let ((e-18 (vector-ref sc16 6))) e-18))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))) -(define Main-case--31398-8705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) -(define Main-case--31389-8656 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Context-Core-initDefs eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((InitPrimitives-Core-addPrimitives e-6) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Context-Core-setWorkingDir e-6 "." eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Main-updatePaths e-6 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-22 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 ((Main-showInfo e-6 e-12 arg-0) eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 1)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((act-24 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-25 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((finish 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-26 (let ((sc15 (Main-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-28 (Main-updateREPLOpts e-12 eta-0))) (let ((sc17 act-28)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-18 (vector-ref sc17 1))) (let ((act-29 (Context-Core-getSession e-6 eta-0))) (let ((sc18 act-29)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-30 (let ((sc19 (Prelude-not (let ((sc20 e-19)) (let ((e-1 (vector-ref sc20 2))) e-1))))) (cond ((equal? sc19 0) (REPLCommon-Idris-iputStrLn e-12 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc19 act-30)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-31 (let ((_-1 0)) ((Main-case--31615-8938 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 (let ((sc20 e-19)) (let ((e-2 (vector-ref sc20 3))) e-2))) eta-0)))) (let ((sc20 act-31)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-32 (let ((sc21 e-21)) (case (vector-ref sc21 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "Loading prelude") (let ((sc22 (Prelude-not (let ((sc23 e-19)) (let ((e-0 (vector-ref sc23 1))) e-0))))) (cond ((equal? sc22 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc21 1))) (Context-Core-logTime 'erased e-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-32 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-8 e-12 e-2 eta-1))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-3 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-22 (vector-ref sc22 1))) ((REPL-Idris-displayErrors e-6 e-17 e-7 e-8 e-12 e-22) eta-1))))))) eta-0))))))) (let ((sc21 act-32)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-33 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-8 e-12 arg-0) eta-0))) (let ((sc22 act-33)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-23 (vector-ref sc22 1))) (let ((_-1 0)) (let ((sc23 e-23)) (cond ((equal? sc23 0) (let ((doRepl 0)) ((Main-case--31835-9091 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-34 (let ((act-34 (IORef-Data-readIORef 'erased e-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-34) eta-0)))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-35 (Context-Core-showTimeRecord e-6 eta-0))) (let ((sc25 act-35)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-25 (vector-ref sc25 1))) (let ((doRepl 1)) ((Main-case--31835-9601 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 doRepl e-24 e-25 (let ((sc26 e-24)) (let ((e-27 (vector-ref sc26 6))) e-27))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--31383-8648 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 ((Main-tryTTM arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-16 (Context-Core-initDefs eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 ((InitPrimitives-Core-addPrimitives e-7) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (Context-Core-setWorkingDir e-7 "." eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (Main-updatePaths e-7 eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-23 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-24 ((Main-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-1 1)) (let ((sc12 e-14)) (cond ((equal? sc12 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((act-25 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-26 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((finish 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-27 (let ((sc17 (Main-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-28)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-29 (Main-updateREPLOpts e-13 eta-0))) (let ((sc19 act-29)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-30 (Context-Core-getSession e-7 eta-0))) (let ((sc20 act-30)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-31 (let ((sc21 (Prelude-not (let ((sc22 e-20)) (let ((e-1 (vector-ref sc22 2))) e-1))))) (cond ((equal? sc21 0) (REPLCommon-Idris-iputStrLn e-13 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc21 act-31)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-32 (let ((_-2 0)) ((Main-case--31615-8938 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 (let ((sc22 e-20)) (let ((e-2 (vector-ref sc22 3))) e-2))) eta-0)))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-33 (let ((sc23 e-22)) (case (vector-ref sc23 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "Loading prelude") (let ((sc24 (Prelude-not (let ((sc25 e-20)) (let ((e-0 (vector-ref sc25 1))) e-0))))) (cond ((equal? sc24 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc23 1))) (Context-Core-logTime 'erased e-7 (lambda () "Loading main file") (lambda (eta-1) (let ((act-33 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-9 e-13 e-2 eta-1))) (let ((sc24 act-33)) (case (vector-ref sc24 0) ((0) (let ((e-3 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-23 (vector-ref sc24 1))) ((REPL-Idris-displayErrors e-7 e-18 e-8 e-9 e-13 e-23) eta-1))))))) eta-0))))))) (let ((sc23 act-33)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-34 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-9 e-13 arg-0) eta-0))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((_-2 0)) (let ((sc25 e-24)) (cond ((equal? sc25 0) (let ((doRepl 0)) ((Main-case--31835-9091 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-35 (let ((act-35 (IORef-Data-readIORef 'erased e-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-35) eta-0)))) (let ((sc26 act-35)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-25 (vector-ref sc26 1))) (let ((act-36 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc27 act-36)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-26 (vector-ref sc27 1))) (let ((doRepl 1)) ((Main-case--31835-9601 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl e-25 e-26 (let ((sc28 e-25)) (let ((e-28 (vector-ref sc28 6))) e-28))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--31236-8532 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-2 e-5 e-6)))))))))) -(define Main-case--31219-8509 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-7 e-2 e-3 e-1 e-5 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--30900-8482 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0))))))) -(define Main-case--30900-8447 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-4) (Prelude-C-61C-61_Eq__Char arg-4 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--30900-8404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-6) (Prelude-C-61C-61_Eq__Char arg-6 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--30900-8353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Main-case--30900-8286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Main-case--32972-9974 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain arg-0 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-1))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))))))) +(define Main-case--32962-9962 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Main-quitOpts e-2) eta-0))) (let ((sc1 act-15)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn e-5 eta-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0))))))))) +(define Main-case--31653-9731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc1 (Prelude-not (let ((sc2 arg-21)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 arg-19 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-15 (REPL-Idris-loadMainFile arg-4 arg-19 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-displayErrors arg-4 arg-19 arg-5 arg-6 arg-14 e-5) eta-1))))))) eta-0)))))))) +(define Main-case--31873-9601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) +(define Main-case--32176-9334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-5 e-5) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0)))))))))))) +(define Main-case--32032-9267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (PrimIO-putStrLn e-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-6 e-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0)))))))))))))))))))) +(define Main-case--31951-9147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 (File-System-stdin) (File-System-stdout)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))) (else (Main-case--32032-9267 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 (CommandLine-Idris-ideSocketModeHostPort arg-0))))))) +(define Main-case--31873-9091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (Main-case--31951-9147 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 (Prelude-not arg-11))) (else (lambda (eta-0) (let ((act-15 (REPL-Idris-repl arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-showTimeRecord arg-4 eta-0))))))))))) +(define Main-case--31653-9038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Main-case--31873-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 6))) e-8))) eta-0)))))))))))))))))) +(define Main-case--31653-8938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (Package-Idris-findIpkg arg-4 arg-14 arg-13 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-13) eta-0))))))) +(define Main-case--31561-8852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((sc1 (Main-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Main-updateREPLOpts arg-14 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-getSession arg-4 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((sc5 (Prelude-not (let ((sc6 e-8)) (let ((e-1 (vector-ref sc6 2))) e-1))))) (cond ((equal? sc5 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((_-0 0)) ((Main-case--31653-8938 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 3))) e-2))) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc8 (Prelude-not (let ((sc9 e-8)) (let ((e-0 (vector-ref sc9 1))) e-0))))) (cond ((equal? sc8 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-6 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc7 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-21 (REPL-Idris-loadMainFile arg-4 e-6 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-11 (vector-ref sc8 1))) ((REPL-Idris-displayErrors arg-4 e-6 arg-5 arg-6 arg-14 e-11) eta-1))))))) eta-0))))))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 ((SetOptions-Idris-postOptions arg-4 e-6 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 0)) (let ((sc9 e-12)) (cond ((equal? sc9 0) (let ((doRepl 0)) ((Main-case--31873-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-24 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 doRepl e-13 e-14 (let ((sc12 e-13)) (let ((e-16 (vector-ref sc12 6))) e-16))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--31436-8775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((Package-Idris-processPackageOpts arg-4 arg-5 arg-14 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-not e-5))) (cond ((equal? sc2 0) (let ((act-16 ((SetOptions-Idris-preOptions arg-4 arg-14 arg-0) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((finish 1)) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-17 (let ((sc5 (Main-checkVerbose arg-0))) (cond ((equal? sc5 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-19 (Main-updateREPLOpts arg-14 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-20 (Context-Core-getSession arg-4 eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-21 (let ((sc9 (Prelude-not (let ((sc10 e-10)) (let ((e-1 (vector-ref sc10 2))) e-1))))) (cond ((equal? sc9 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-22 (let ((_-0 0)) ((Main-case--31653-8938 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 (let ((sc10 e-10)) (let ((e-2 (vector-ref sc10 3))) e-2))) eta-0)))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-23 (let ((sc11 e-12)) (case (vector-ref sc11 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc12 (Prelude-not (let ((sc13 e-10)) (let ((e-0 (vector-ref sc13 1))) e-0))))) (cond ((equal? sc12 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-8 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc11 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-23 (REPL-Idris-loadMainFile arg-4 e-8 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc12 act-23)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-13 (vector-ref sc12 1))) ((REPL-Idris-displayErrors arg-4 e-8 arg-5 arg-6 arg-14 e-13) eta-1))))))) eta-0))))))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-24 ((SetOptions-Idris-postOptions arg-4 e-8 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc12 1))) (let ((_-0 0)) (let ((sc13 e-14)) (cond ((equal? sc13 0) (let ((doRepl 0)) ((Main-case--31873-9091 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-26 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl e-15 e-16 (let ((sc16 e-15)) (let ((e-18 (vector-ref sc16 6))) e-18))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))) +(define Main-case--31436-8705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) +(define Main-case--31427-8656 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Context-Core-initDefs eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((InitPrimitives-Core-addPrimitives e-6) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Context-Core-setWorkingDir e-6 "." eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Main-updatePaths e-6 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-22 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 ((Main-showInfo e-6 e-12 arg-0) eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 1)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((act-24 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-25 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((finish 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-26 (let ((sc15 (Main-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-28 (Main-updateREPLOpts e-12 eta-0))) (let ((sc17 act-28)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-18 (vector-ref sc17 1))) (let ((act-29 (Context-Core-getSession e-6 eta-0))) (let ((sc18 act-29)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-30 (let ((sc19 (Prelude-not (let ((sc20 e-19)) (let ((e-1 (vector-ref sc20 2))) e-1))))) (cond ((equal? sc19 0) (REPLCommon-Idris-iputStrLn e-12 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc19 act-30)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-31 (let ((_-1 0)) ((Main-case--31653-8938 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 (let ((sc20 e-19)) (let ((e-2 (vector-ref sc20 3))) e-2))) eta-0)))) (let ((sc20 act-31)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-32 (let ((sc21 e-21)) (case (vector-ref sc21 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "Loading prelude") (let ((sc22 (Prelude-not (let ((sc23 e-19)) (let ((e-0 (vector-ref sc23 1))) e-0))))) (cond ((equal? sc22 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc21 1))) (Context-Core-logTime 'erased e-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-32 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-8 e-12 e-2 eta-1))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-3 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-22 (vector-ref sc22 1))) ((REPL-Idris-displayErrors e-6 e-17 e-7 e-8 e-12 e-22) eta-1))))))) eta-0))))))) (let ((sc21 act-32)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-33 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-8 e-12 arg-0) eta-0))) (let ((sc22 act-33)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-23 (vector-ref sc22 1))) (let ((_-1 0)) (let ((sc23 e-23)) (cond ((equal? sc23 0) (let ((doRepl 0)) ((Main-case--31873-9091 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-34 (let ((act-34 (IORef-Data-readIORef 'erased e-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-34) eta-0)))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-35 (Context-Core-showTimeRecord e-6 eta-0))) (let ((sc25 act-35)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-25 (vector-ref sc25 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 doRepl e-24 e-25 (let ((sc26 e-24)) (let ((e-27 (vector-ref sc26 6))) e-27))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--31421-8648 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 ((Main-tryTTM arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-16 (Context-Core-initDefs eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 ((InitPrimitives-Core-addPrimitives e-7) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (Context-Core-setWorkingDir e-7 "." eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (Main-updatePaths e-7 eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-23 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-24 ((Main-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-1 1)) (let ((sc12 e-14)) (cond ((equal? sc12 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((act-25 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-26 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((finish 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-27 (let ((sc17 (Main-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-28)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-29 (Main-updateREPLOpts e-13 eta-0))) (let ((sc19 act-29)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-30 (Context-Core-getSession e-7 eta-0))) (let ((sc20 act-30)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-31 (let ((sc21 (Prelude-not (let ((sc22 e-20)) (let ((e-1 (vector-ref sc22 2))) e-1))))) (cond ((equal? sc21 0) (REPLCommon-Idris-iputStrLn e-13 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc21 act-31)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-32 (let ((_-2 0)) ((Main-case--31653-8938 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 (let ((sc22 e-20)) (let ((e-2 (vector-ref sc22 3))) e-2))) eta-0)))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-33 (let ((sc23 e-22)) (case (vector-ref sc23 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "Loading prelude") (let ((sc24 (Prelude-not (let ((sc25 e-20)) (let ((e-0 (vector-ref sc25 1))) e-0))))) (cond ((equal? sc24 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc23 1))) (Context-Core-logTime 'erased e-7 (lambda () "Loading main file") (lambda (eta-1) (let ((act-33 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-9 e-13 e-2 eta-1))) (let ((sc24 act-33)) (case (vector-ref sc24 0) ((0) (let ((e-3 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-23 (vector-ref sc24 1))) ((REPL-Idris-displayErrors e-7 e-18 e-8 e-9 e-13 e-23) eta-1))))))) eta-0))))))) (let ((sc23 act-33)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-34 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-9 e-13 arg-0) eta-0))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((_-2 0)) (let ((sc25 e-24)) (cond ((equal? sc25 0) (let ((doRepl 0)) ((Main-case--31873-9091 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-35 (let ((act-35 (IORef-Data-readIORef 'erased e-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-35) eta-0)))) (let ((sc26 act-35)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-25 (vector-ref sc26 1))) (let ((act-36 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc27 act-36)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-26 (vector-ref sc27 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl e-25 e-26 (let ((sc28 e-25)) (let ((e-28 (vector-ref sc28 6))) e-28))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--31274-8532 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-2 e-5 e-6)))))))))) +(define Main-case--31257-8509 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-7 e-2 e-3 e-1 e-5 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--30938-8482 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0))))))) +(define Main-case--30938-8447 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-4) (Prelude-C-61C-61_Eq__Char arg-4 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--30938-8404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-6) (Prelude-C-61C-61_Eq__Char arg-6 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--30938-8353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Main-case--30938-8286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) (define Main-updateREPLOpts (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (System-getEnv "EDITOR" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-17 (IORef-Data-writeIORef 'erased arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-9 e-2 e-3 e-1 e-8 e-7)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))))))) (define Main-updatePaths (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (System-getEnv "IDRIS2_PREFIX" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Context-Core-setPrefix arg-0 e-1 ext-0))) (else (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) ext-0)))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (let ((act-17 (System-getEnv "IDRIS2_PATH" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Options-Core-pathSep))) e-1))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 (System-getEnv "IDRIS2_DATA" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Options-Core-pathSep))) e-1))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 (let ((act-21 (System-getEnv "IDRIS2_LIBS" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) ext-0)))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Options-Core-pathSep))) e-1))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) ext-0)))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-24 (SetOptions-Idris-addPkgDir arg-0 "prelude" ext-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-25 (SetOptions-Idris-addPkgDir arg-0 "base" ext-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-26 (Context-Core-addDataDir arg-0 (Strings-Prelude-C-43C-43 (let ((sc11 (let ((sc12 (let ((sc13 e-13)) (let ((e-4 (vector-ref sc13 5))) e-4)))) (let ((e-0 (vector-ref sc12 1))) e-0)))) (let ((e-4 (vector-ref sc11 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "support"))))) ext-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-27 (Context-Core-addLibDir arg-0 (Strings-Prelude-C-43C-43 (let ((sc12 (let ((sc13 (let ((sc14 e-13)) (let ((e-4 (vector-ref sc14 5))) e-4)))) (let ((e-0 (vector-ref sc13 1))) e-0)))) (let ((e-4 (vector-ref sc12 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "lib"))))) ext-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-28 (let ((act-28 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-28) ext-0)))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((sc14 e-18)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (Context-Core-addLibDir arg-0 e-1 ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define Main-tryYaffle (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((17) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Main-Yaffle-yaffleMain e-4 (vector 0 ) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))(else (Main-tryYaffle e-3))))))))))) (define Main-tryTTM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((18) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Metadata-Core-dumpTTM e-4 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))(else (Main-tryTTM e-3))))))))))) -(define Main-stMain (lambda (arg-0 ext-0) (let ((act-15 ((Main-tryYaffle arg-0) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 1) (let ((act-16 ((Main-tryTTM arg-0) ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-17 (Context-Core-initDefs ext-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-7 ext-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) ext-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 ((InitPrimitives-Core-addPrimitives e-8) ext-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (Context-Core-setWorkingDir e-8 "." ext-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-23 (Main-updatePaths e-8 ext-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) ext-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-25 ((Main-showInfo e-8 e-14 arg-0) ext-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-15 (vector-ref sc12 1))) (let ((_-1 1)) (let ((sc13 e-15)) (cond ((equal? sc13 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((act-26 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-0) ext-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-27 ((SetOptions-Idris-preOptions e-8 e-14 arg-0) ext-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-17 (vector-ref sc16 1))) (let ((finish 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-28 (let ((sc18 (Main-checkVerbose arg-0))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc18 act-28)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-29 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-29)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-30 (Main-updateREPLOpts e-14 ext-0))) (let ((sc20 act-30)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-31 (Context-Core-getSession e-8 ext-0))) (let ((sc21 act-31)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-32 (let ((sc22 (Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-14 (Main-banner) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-33 (let ((_-2 0)) ((Main-case--31615-8938 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) ext-0)))) (let ((sc23 act-33)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-34 (let ((sc24 e-23)) (case (vector-ref sc24 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "Loading prelude") (let ((sc25 (Prelude-not (let ((sc26 e-21)) (let ((e-0 (vector-ref sc26 1))) e-0))))) (cond ((equal? sc25 0) (lambda (eta-0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))) ext-0)) (else (let ((e-2 (vector-ref sc24 1))) (Context-Core-logTime 'erased e-8 (lambda () "Loading main file") (lambda (eta-0) (let ((act-34 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-10 e-14 e-2 eta-0))) (let ((sc25 act-34)) (case (vector-ref sc25 0) ((0) (let ((e-3 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-24 (vector-ref sc25 1))) ((REPL-Idris-displayErrors e-8 e-19 e-9 e-10 e-14 e-24) eta-0))))))) ext-0))))))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-35 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-10 e-14 arg-0) ext-0))) (let ((sc25 act-35)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-25 (vector-ref sc25 1))) (let ((_-2 0)) (let ((sc26 e-25)) (cond ((equal? sc26 0) (let ((doRepl 0)) ((Main-case--31835-9091 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-36 (let ((act-36 (IORef-Data-readIORef 'erased e-14 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-36) ext-0)))) (let ((sc27 act-36)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-26 (vector-ref sc27 1))) (let ((act-37 (Context-Core-showTimeRecord e-8 ext-0))) (let ((sc28 act-37)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-27 (vector-ref sc28 1))) (let ((doRepl 1)) ((Main-case--31835-9601 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc29 e-26)) (let ((e-29 (vector-ref sc29 6))) e-29))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) +(define Main-stMain (lambda (arg-0 ext-0) (let ((act-15 ((Main-tryYaffle arg-0) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 1) (let ((act-16 ((Main-tryTTM arg-0) ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-17 (Context-Core-initDefs ext-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-7 ext-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) ext-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 ((InitPrimitives-Core-addPrimitives e-8) ext-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (Context-Core-setWorkingDir e-8 "." ext-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-23 (Main-updatePaths e-8 ext-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) ext-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-25 ((Main-showInfo e-8 e-14 arg-0) ext-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-15 (vector-ref sc12 1))) (let ((_-1 1)) (let ((sc13 e-15)) (cond ((equal? sc13 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((act-26 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-0) ext-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-27 ((SetOptions-Idris-preOptions e-8 e-14 arg-0) ext-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-17 (vector-ref sc16 1))) (let ((finish 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-28 (let ((sc18 (Main-checkVerbose arg-0))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc18 act-28)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-29 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-29)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-30 (Main-updateREPLOpts e-14 ext-0))) (let ((sc20 act-30)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-31 (Context-Core-getSession e-8 ext-0))) (let ((sc21 act-31)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-32 (let ((sc22 (Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-14 (Main-banner) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-33 (let ((_-2 0)) ((Main-case--31653-8938 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) ext-0)))) (let ((sc23 act-33)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-34 (let ((sc24 e-23)) (case (vector-ref sc24 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "Loading prelude") (let ((sc25 (Prelude-not (let ((sc26 e-21)) (let ((e-0 (vector-ref sc26 1))) e-0))))) (cond ((equal? sc25 0) (lambda (eta-0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))) ext-0)) (else (let ((e-2 (vector-ref sc24 1))) (Context-Core-logTime 'erased e-8 (lambda () "Loading main file") (lambda (eta-0) (let ((act-34 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-10 e-14 e-2 eta-0))) (let ((sc25 act-34)) (case (vector-ref sc25 0) ((0) (let ((e-3 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-24 (vector-ref sc25 1))) ((REPL-Idris-displayErrors e-8 e-19 e-9 e-10 e-14 e-24) eta-0))))))) ext-0))))))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-35 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-10 e-14 arg-0) ext-0))) (let ((sc25 act-35)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-25 (vector-ref sc25 1))) (let ((_-2 0)) (let ((sc26 e-25)) (cond ((equal? sc26 0) (let ((doRepl 0)) ((Main-case--31873-9091 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-36 (let ((act-36 (IORef-Data-readIORef 'erased e-14 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-36) ext-0)))) (let ((sc27 act-36)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-26 (vector-ref sc27 1))) (let ((act-37 (Context-Core-showTimeRecord e-8 ext-0))) (let ((sc28 act-37)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-27 (vector-ref sc28 1))) (let ((doRepl 1)) ((Main-case--31873-9601 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc29 e-26)) (let ((e-29 (vector-ref sc29 6))) e-29))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (define Main-showInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((27) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (REPLCommon-Idris-iputStrLn arg-1 (Options-Core-toString (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))(else (Main-showInfo arg-0 arg-1 e-3))))))))))) (define Main-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased 0 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (CommandLine-Idris-versionMsg) eta-0))) (Prelude-pure_Applicative__IO 'erased 1 eta-0)))) ((7) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0))) (Prelude-pure_Applicative__IO 'erased 1 eta-0)))) ((5) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (IdrisPaths-yprefix) eta-0))) (Prelude-pure_Applicative__IO 'erased 1 eta-0))))(else (Main-quitOpts e-3))))))))))) (define Main-main (lambda (ext-0) (let ((act-15 (CommandLine-Idris-getCmdOpts ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 ((Main-quitOpts e-2) ext-0))) (let ((sc1 act-16)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-0) (Main-stMain e-2 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-17 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (lambda (res) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) ext-0))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (PrimIO-putStrLn e-5 ext-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) ext-0))))))))) @@ -420,7 +420,7 @@ (define Main-checkVerbose (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) 0)(else (Main-checkVerbose e-3))))))))))) (define Main-banner (lambda () (Strings-Prelude-C-43C-43 " ____ __ _ ___ \xa;" (Strings-Prelude-C-43C-43 " / _/___/ /____(_)____ |__ \\ \xa;" (Strings-Prelude-C-43C-43 " / // __ / ___/ / ___/ __/ / Version " (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 0 (Version-Idris-version)) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 " _/ // /_/ / / / (__ ) / __/ https://www.idris-lang.org \xa;" (Strings-Prelude-C-43C-43 " /___/\\__,_/_/ /_/____/ /____/ Type :? for help \xa;" (Strings-Prelude-C-43C-43 "\xa;" "Welcome to Idris 2. Enjoy yourself!")))))))))) (define IdrisPaths-yprefix (lambda () "__PREFIX__")) -(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "1524b865c"))) +(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "561123d49"))) (define Prelude-case--7924-8682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2))))))))) (else (Prelude-countFrom 'erased arg-2 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-2) arg-3))))))))))))) (define Prelude-case--8149-8611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-2 (vector 0 ))) (else (vector 0 )))))) (define Prelude-case--8084-8548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 arg-6) arg-2)))) (Prelude-countFrom 'erased arg-4 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-4) arg-3)))))))))) (else (Prelude-case--8149-8611 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-38C-38 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-4) arg-3))) (lambda () (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) arg-2))))))))))) @@ -5708,156 +5708,156 @@ (define ANameMap-Data-empty (lambda (arg-0) (vector 0 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased)))) (define ANameMap-Data-addToHier (lambda (arg-0 arg-1 arg-2 arg-3) (ANameMap-Data-case--2681-3201 'erased arg-2 arg-3 arg-1 (Name-Core-userNameRoot arg-1)))) (define ANameMap-Data-addName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((dictC-39 (NameMap-Data-insert 'erased arg-1 arg-2 e-1))) (let ((hierC-39 (ANameMap-Data-addToHier 'erased arg-1 arg-2 e-2))) (vector 0 dictC-39 hierC-39)))))))) -(define SetOptions-Idris-case--29827-12637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 1 arg-0))))))))))))))) -(define SetOptions-Idris-case--29827-12596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10)))))))))))))) -(define SetOptions-Idris-case--29827-12555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29827-12514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29827-12477 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29827-12436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29827-12293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setCG arg-3 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "No such code generator" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))))))))))) -(define SetOptions-Idris-case--29827-12280 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29827-12232 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29827-12195 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29827-12156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29827-12115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-case--29827-12076 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) -(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-12 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-12 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-11 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-11 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((15) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((9) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((4) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (SetOptions-Idris-case--29827-12293 e-6 e-3 arg-1 arg-0 (Options-Core-getCG e-6)))) ((11) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (SetOptions-Idris-addPkgDir arg-0 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((13) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((SetOptions-Idris-dirOption (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)) e-8) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((25) (lambda (eta-0) (let ((act-15 (Context-Core-setLogTimings arg-0 0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (lambda (eta-0) (let ((act-15 (Context-Core-setDebugElabCheck arg-0 0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((23) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (Context-Core-getSession arg-0 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-13 (vector-ref sc4 6))) (let ((e-12 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-11 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-12 e-7 e-8 e-11 e-10)))))))))))) eta-0)))))))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((24) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 0 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((19) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 (vector 1 e-10) e-8 e-9 e-11)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((20) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 (vector 1 e-11) e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((21) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-11 e-6 e-7 e-8 (vector 1 e-12) e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((22) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-14 e-12 e-4 e-11 e-6 e-7 e-8 e-9 (vector 1 e-13))))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))(else (SetOptions-Idris-preOptions arg-0 arg-1 e-3))))))))))) +(define SetOptions-Idris-case--29865-12637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 1 arg-0))))))))))))))) +(define SetOptions-Idris-case--29865-12596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12477 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setCG arg-3 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "No such code generator" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))))))))))) +(define SetOptions-Idris-case--29865-12280 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12232 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12195 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-case--29865-12076 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))) +(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-12 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-12 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-11 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-11 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((15) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((9) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((4) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (SetOptions-Idris-case--29865-12293 e-6 e-3 arg-1 arg-0 (Options-Core-getCG e-6)))) ((11) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (SetOptions-Idris-addPkgDir arg-0 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((13) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((SetOptions-Idris-dirOption (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)) e-8) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((25) (lambda (eta-0) (let ((act-15 (Context-Core-setLogTimings arg-0 0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (lambda (eta-0) (let ((act-15 (Context-Core-setDebugElabCheck arg-0 0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((23) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (Context-Core-getSession arg-0 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-13 (vector-ref sc4 6))) (let ((e-12 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-11 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-12 e-7 e-8 e-11 e-10)))))))))))) eta-0)))))))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((24) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 0 e-12 e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((19) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 (vector 1 e-10) e-8 e-9 e-11)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((20) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 (vector 1 e-11) e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((21) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-11 e-6 e-7 e-8 (vector 1 e-12) e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((22) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-14 e-12 e-4 e-11 e-6 e-7 e-8 e-9 (vector 1 e-13))))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))(else (SetOptions-Idris-preOptions arg-0 arg-1 e-3))))))))))) (define SetOptions-Idris-postOptions (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")) e-4 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 e-5)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))) ((0) (lambda (eta-0) (let ((act-15 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((23) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) (define SetOptions-Idris-ideModeSocket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((16) 0)(else (SetOptions-Idris-ideModeSocket e-3))))))))))) (define SetOptions-Idris-ideMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((15) 0)(else (SetOptions-Idris-ideMode e-3))))))))))) (define SetOptions-Idris-dirOption (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Options-Core-dirSep))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))) (define SetOptions-Idris-addPkgDir (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-addExtraDir arg-0 (Strings-Prelude-C-43C-43 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-1))))) ext-0)))))))) -(define REPL-Idris-case--36800-7986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3)))))))) -(define REPL-Idris-case--36793-7860 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))) -(define REPL-Idris-case--36787-7790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPLCommon-Idris-iputStrLn arg-0 "Bye for now!" eta-0))))))) (else (lambda (eta-0) (let ((act-15 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0)))))))))))) -(define REPL-Idris-case--36694-7642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Support-Parser-show_Show__ParseError e-2))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0)))))))))))) -(define REPL-Idris-case--36590-7609 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))))))) -(define REPL-Idris-case--36593-7553 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--36590-7527-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--36590-7528-fnameCmd arg-0 arg-3 arg-4)))))) -(define REPL-Idris-case--35091-7354 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 1 e-2)))))) -(define REPL-Idris-case--35091-7186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 16 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-16 (let ((act-16 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Totality arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Totality arg-4526 arg-4527)))) e-6 eta-1)))))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 fn e-6)) eta-1)))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--36064-7073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-9 e-5)) eta-0))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-9 e-5)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-9)) eta-0))))))) -(define REPL-Idris-case--35091-7017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 15 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-7)) ((REPL-Idris-case--36064-7073 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--35091-6893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-15 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-8)) eta-0)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--35091-6804 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((line (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Prelude-C-43C-43 " +" (Prelude-show_Show__Int (Prelude-C-43_Num__Int i (Prelude-fromInteger_Num__Int 1)))))) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5))))) (lambda (eta-0) (let ((act-15 (let ((act-15 (System-system (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 line))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))))))) -(define REPL-Idris-case--35091-6760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-0) e-3 e-4 e-5 e-6)))))))))) -(define REPL-Idris-case--35091-6688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))) -(define REPL-Idris-case--35091-6631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) arg-7) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))))))) -(define REPL-Idris-case--35091-6547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-6 e-8)) eta-0))))))))))))))))))))))))))) -(define REPL-Idris-case--35091-6465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) arg-8) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))))))) -(define REPL-Idris-case--35217-6315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased arg-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((((arg-16 arg-14) (vector 0 )) e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-18 (vector 1 e-6))) eta-0))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-18 (vector 0 ))) eta-0))))))) -(define REPL-Idris-case--35129-6242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((norm (REPL-Idris-n--35091-6122-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-17 ((((norm e-5) (vector 0 )) e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--35217-6315 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 _-0 e-5 e-6 norm e-7 e-8 e-9 (let ((sc6 e-6)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))) -(define REPL-Idris-case--35091-6157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-15 (REPL-Idris-execExp arg-5 arg-4 arg-3 arg-2 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-0)) eta-0)))))))(else (lambda (eta-0) (let ((act-15 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) arg-0 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-17 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--35091-6121-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((norm (REPL-Idris-n--35091-6122-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-21 ((((norm e-9) (vector 0 )) e-2) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--35217-6315 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-6 e-7 e-2 e-3 _-0 e-9 e-10 norm e-11 e-12 e-13 (let ((sc10 e-10)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define REPL-Idris-case--34956-6038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-0)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0 arg-9)) eta-0))))))) -(define REPL-Idris-case--34930-5996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-logTime 'erased arg-5 (lambda () "Build deps") (lambda (eta-1) (ModTree-Idris-buildDeps arg-5 arg-3 arg-2 arg-4 arg-1 arg-0 eta-1)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((REPLCommon-Idris-updateErrorLine arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (REPLOpts-Idris-setSource arg-1 e-2 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-0)) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0 e-5)) eta-0)))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setSource arg-1 "" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 arg-0 e-5)) eta-0)))))))))))) -(define REPL-Idris-case--34823-5915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (REPL-Idris-findCG arg-6 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-compile arg-6 e-6 e-5 arg-0 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 )) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 eta-1)) eta-2)))) e-6) eta-0)))))))))))))))) -(define REPL-Idris-case--34733-5834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (LinearCheck-Core-linearCheck (vector 0 ) arg-4 arg-3 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (REPL-Idris-findCG arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-execute arg-4 e-6 e-5 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-0)) eta-0))))))))))))))) -(define REPL-Idris-case--31187-5724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith arg-0 e-1) (vector 0 )))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not available")) eta-0))))))) -(define REPL-Idris-case--34309-5499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma arg-27 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-27 arg-0 arg-20 arg-23)) eta-0))))))) -(define REPL-Idris-case--34230-5436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma e-2 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-2 arg-0 arg-20 arg-23)) eta-0))))))))) -(define REPL-Idris-case--34026-5382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--34230-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))) -(define REPL-Idris-case--34026-5278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) -(define REPL-Idris-case--33961-5218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-pterm arg-7 arg-5 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc4 arg-10)) (cond ((equal? sc4 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-6)) (else e-6)))))) (let ((act-18 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-1 (vector 1 e-1))) ((REPL-Idris-case--34230-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 e-5 e-6 e-7 pappstr e-1 _-1 (Unlit-Parser-isLitLine e-1)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))))))))))))))))))) -(define REPL-Idris-case--31187-5167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((7) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-15 (MakeLemma-Interactive-TTImp-makeLemma arg-4 arg-7 (REPLOpts-Idris-replFC) arg-0 e-15 e-14 eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc7 e-7)) (let ((e-4 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-16 (Resugar-Idris-pterm arg-7 arg-5 e-4 eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (let ((act-17 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-10)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-11)) (else e-11)))))) (let ((act-19 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc11 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc12 e-17)) (case (vector-ref sc12 0) ((1) (let ((e-18 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-18))) ((REPL-Idris-case--34230-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-16 e-5 e-9 e-15 e-14 bind-0 e-4 e-3 _-0 e-8 e-11 e-12 pappstr e-18 _-1 (Unlit-Parser-isLitLine e-18)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))) -(define REPL-Idris-case--33547-4856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines arg-23) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-23)) eta-0))))))) -(define REPL-Idris-case--33486-4794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((l (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-15))))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-7 arg-5 e-2 l eta-1)) arg-16) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-2)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0))))))))))))))) -(define REPL-Idris-case--33424-4752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--33486-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))) -(define REPL-Idris-case--33349-4706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-2))) ((REPL-Idris-case--33486-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 e-6 _-0 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))) (else (REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0))))))) -(define REPL-Idris-case--33294-4642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-15 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-12 eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((act-16 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-8 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-3))) ((REPL-Idris-case--33486-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 bind-0 e-7 e-6 _-0 e-3 _-1 (Unlit-Parser-isLitLine e-3)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))) eta-0))))))) -(define REPL-Idris-case--31187-4596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-16 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-1))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-8 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((act-17 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-15 (vector-ref sc10 1))) (let ((_-1 (vector 1 (vector 0 e-12 e-11)))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--33486-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-13 e-5 e-9 _-0 bind-0 e-12 e-11 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int arg-1)))))) eta-0))))))) -(define REPL-Idris-case--32857-4392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-25 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-25 (vector 0 )))) eta-0))))))) -(define REPL-Idris-case--32857-4293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-24)) (else arg-24))))) -(define REPL-Idris-case--32745-4226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc3 arg-12)) (cond ((equal? sc3 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-5)) (else e-5)))))) (let ((sc3 arg-4)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))))))) -(define REPL-Idris-case--32019-4134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--32745-4226 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-0 (REPL-Idris-n--31187-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-0 (vector 0 ) arg-17)))))))) -(define REPL-Idris-case--32019-4027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0)))))))))) -(define REPL-Idris-case--32231-3906 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 arg-24 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-24 (vector 0 )))) eta-0))))))) -(define REPL-Idris-case--32231-3811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) -(define REPL-Idris-case--32113-3714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-11)) (cond ((equal? sc1 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0)))))))))))) -(define REPL-Idris-case--32019-3616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-22) (Syntax-Idris-show_Show__PTerm arg-22)) arg-21))) eta-0))) (else (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0))) (else (let ((e-2 (vector-ref sc1 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc2 arg-12)) (cond ((equal? sc2 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))) -(define REPL-Idris-case--31187-3535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((7) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-15 (ExprSearch-Interactive-TTImp-exprSearch arg-9 arg-6 arg-8 (REPLOpts-Idris-replFC) arg-2 (vector 0 ) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 7 e-12 e-13))) (vector 0 )))) (REPL-Idris-case--32019-4027 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-13 e-6 e-10 e-12 bind-0 e-5 e-8 e-9 tm (REPL-Idris-n--31187-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-12 (vector 0 ) tm)))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 arg-0)) (cond ((equal? sc9 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (Syntax-Idris-show_Show__PTerm arg-14)) e-14))) eta-0)) (else (let ((sc10 e-14)) (case (vector-ref sc10 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0)) (else (let ((e-4 (vector-ref sc10 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-12)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc11 arg-4)) (cond ((equal? sc11 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 1 e-14 (vector 0 ) (vector 1 e-22) e-17 e-18))) (vector 0 )))) (REPL-Idris-case--32019-4134 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-17 e-18 e-6 e-10 e-22 e-14 bind-0 (let ((sc7 e-14)) (let ((e-0 (vector-ref sc7 1))) e-0)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name arg-2)))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) -(define REPL-Idris-case--31825-3380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause arg-8 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-8 (vector 0 )))) eta-0))))))) -(define REPL-Idris-case--31187-3359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-1 (vector 0 )))) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not defined here"))) eta-0))))))) -(define REPL-Idris-case--31662-3256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines arg-12) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-12)) eta-0))))))) -(define REPL-Idris-case--31187-3213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (CaseSplit-IDEMode-Idris-updateCase arg-8 arg-6 arg-4 e-1 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-3)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0)))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-3))) eta-0)))))))) -(define REPL-Idris-case--31187-3137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1)) eta-0))) (else (lambda (eta-0) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-2 1) eta-0))))))) -(define REPL-Idris-case--31187-3076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-7 arg-5 arg-8 eta-1)) arg-9) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-showSep "\xa;" e-5)) eta-0)))))))))))) -(define REPL-Idris-case--31242-2993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)) arg-0) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-10 (vector 0 )))) eta-0))))))) -(define REPL-Idris-case--31242-2884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (REPL-Idris-displayTerm arg-7 arg-5 arg-8 arg-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-11) (Strings-Prelude-C-43C-43 " : " e-5)) (vector 0 )))) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))) -(define REPL-Idris-case--31187-2845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (REPL-Idris-case--31242-2884 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-9 e-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))))) (else (let ((_-0 (vector 0 ))) (REPL-Idris-case--31242-2993 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 "")))))))) -(define REPL-Idris-case--31075-2717 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 (Strings-Prelude-C-43C-43 "\xa;" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\xa;"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--31068-2692-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7))))))) -(define REPL-Idris-case--31002-2634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 arg-5 (Prelude-pack (List-Data-drop 'erased (Prelude-length arg-6) (Prelude-unpack arg-4))))) (else (Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--30993-2627-replaceStr arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (substring arg-4 1 (string-length arg-4))))))))) -(define REPL-Idris-case--30862-2514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile (Strings-Prelude-C-43C-43 arg-3 "~") e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (File-System-writeFile arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0)))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-5) eta-0)))))))) -(define REPL-Idris-case--30848-2494 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-readFile e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (File-System-writeFile (Strings-Prelude-C-43C-43 e-1 "~") e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (File-System-writeFile e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))) -(define REPL-Idris-case--30692-2336 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Chez-Scheme-Compiler-codegenChez)) eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Racket-Scheme-Compiler-codegenRacket)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Gambit-Scheme-Compiler-codegenGambit)) eta-0))))))) -(define REPL-Idris-case--30473-2270 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 "No such code generator available" eta-0))))))) -(define REPL-Idris-case--30473-2259 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6)))))))))) -(define REPL-Idris-case--30473-2227 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6)))))))))) -(define REPL-Idris-case--30473-2195 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6)))))))))) -(define REPL-Idris-case--30473-2163 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-0)))))) -(define REPL-Idris-case--30473-2143 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 e-2)))))) -(define REPL-Idris-case--30381-2060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayClause arg-5 arg-4 arg-3 eta-1)) e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;" (Name-Core-showSep "\xa;" e-6)))) eta-0))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " is not a pattern matching definition")) eta-0))))))) -(define REPL-Idris-case--29999-1734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) arg-8) (else (REPL-Idris-n--29868-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8)))))) -(define REPL-Idris-case--29868-1706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envsC-39 (let ((_-0 (vector 0 e-2 e-3))) (REPL-Idris-case--29999-1734 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 _-0 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) envsC-39)) e-3)) eta-0))))))))))))) -(define REPL-Idris-case--29882-1633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (REPL-Idris-n--29868-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-11)) (else (vector 1 (vector 0 arg-9 arg-10) (REPL-Idris-n--29868-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-11))))))) -(define REPL-Idris-case--29606-1518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 arg-2 arg-12) e-2) e-3)) eta-0))))))) -(define REPL-Idris-case--29606-1434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (REPL-Idris-showCount (TT-Core-multiplicity 'erased arg-4)) (Strings-Prelude-C-43C-43 (REPL-Idris-impBracket (REPL-Idris-n--29606-1387-implicitBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-4) (Strings-Prelude-C-43C-43 (REPL-Idris-tidy arg-2) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm arg-11)))) "\xa;"))) (else ""))))) -(define REPL-Idris-case--29508-1288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))))))) -(define REPL-Idris-case--29505-1267 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (REPL-Idris-case--29508-1288 arg-0 e-3 e-4 e-5 e-6 e-2 (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))(else (vector 0 )))))) -(define REPL-Idris-case--29265-1187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))) -(define REPL-Idris-n--30993-2627-replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (REPL-Idris-case--31002-2634 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 arg-4 (Strings-Data-isPrefixOf arg-4 arg-6))))))) -(define REPL-Idris-n--36787-7752-prompt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "[tc] ") ((1) "") (else "[exec] "))))) -(define REPL-Idris-n--35091-6122-nfun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normaliseAll arg-6 eta-0 eta-1 eta-2 eta-3))))))(else (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normalise arg-6 eta-0 eta-1 eta-2 eta-3)))))))))) -(define REPL-Idris-n--36806-8091-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ ))))) -(define REPL-Idris-n--31068-2692-insertInBlank (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (Unlit-Parser-relit arg-6 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\xa;")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--31075-2717 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) ""))))))))) -(define REPL-Idris-n--29606-1387-implicitBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) 1)(else 0))))) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) 1)(else 0)))))(else 1))))) -(define REPL-Idris-n--36590-7527-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Prelude-substr arg-1 (Prelude-length arg-3) arg-3)))))) -(define REPL-Idris-n--36590-7528-fnameCmd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--36593-7553 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2)))))))))))) -(define REPL-Idris-n--35091-6121-emode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (vector 2 )))))) -(define REPL-Idris-n--29868-1600-dropShadows (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--29882-1633 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-6 e-7 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-3))))))))))))) -(define REPL-Idris-n--31187-3453-dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (vector 0 arg-10 (vector 0 arg-12 arg-13)))(else (let ((e-0 (- arg-11 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (REPL-Idris-n--31187-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-3 arg-10) e-0 (vector 1 e-4 arg-12) e-5)))))(else (vector 0 arg-10 (vector 0 arg-12 arg-13))))))))))) -(define REPL-Idris-n--36806-8092-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (REPL-Idris-n--36806-8091-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--36806-8091-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4)))))) -(define REPL-Idris-n--36806-8093-cmdInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 " " (REPL-Idris-n--36806-8092-col (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))) (Name-Core-showSep " " e-2) (Parser-Idris-show_Show__CmdArg e-6) e-7)))))))))) -(define REPL-Idris-n--31068-2693-addApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--31068-2692-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8)) arg-9))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-n--31068-2693-addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (vector 1 e-2 arg-8) e-3)))) (else (List-Data-reverse 'erased arg-8)))))))))) -(define REPL-Idris-updateFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--30848-2494 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0)))))))) +(define REPL-Idris-case--36838-7986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3)))))))) +(define REPL-Idris-case--36831-7860 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))) +(define REPL-Idris-case--36825-7790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPLCommon-Idris-iputStrLn arg-0 "Bye for now!" eta-0))))))) (else (lambda (eta-0) (let ((act-15 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0)))))))))))) +(define REPL-Idris-case--36732-7642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Support-Parser-show_Show__ParseError e-2))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0)))))))))))) +(define REPL-Idris-case--36628-7609 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))))))) +(define REPL-Idris-case--36631-7553 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--36628-7527-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--36628-7528-fnameCmd arg-0 arg-3 arg-4)))))) +(define REPL-Idris-case--35129-7354 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 1 e-2)))))) +(define REPL-Idris-case--35129-7186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 16 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-16 (let ((act-16 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Totality arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Totality arg-4526 arg-4527)))) e-6 eta-1)))))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 fn e-6)) eta-1)))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--36102-7073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-9 e-5)) eta-0))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-9 e-5)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-9)) eta-0))))))) +(define REPL-Idris-case--35129-7017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 15 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-7)) ((REPL-Idris-case--36102-7073 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--35129-6893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-15 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-8)) eta-0)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--35129-6804 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((line (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Prelude-C-43C-43 " +" (Prelude-show_Show__Int (Prelude-C-43_Num__Int i (Prelude-fromInteger_Num__Int 1)))))) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5))))) (lambda (eta-0) (let ((act-15 (let ((act-15 (System-system (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 line))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))))))) +(define REPL-Idris-case--35129-6760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-0) e-3 e-4 e-5 e-6)))))))))) +(define REPL-Idris-case--35129-6688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))) +(define REPL-Idris-case--35129-6631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) arg-7) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))))))) +(define REPL-Idris-case--35129-6547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-6 e-8)) eta-0))))))))))))))))))))))))))) +(define REPL-Idris-case--35129-6465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) arg-8) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))))))) +(define REPL-Idris-case--35255-6315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased arg-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((((arg-16 arg-14) (vector 0 )) e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-18 (vector 1 e-6))) eta-0))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-18 (vector 0 ))) eta-0))))))) +(define REPL-Idris-case--35167-6242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((norm (REPL-Idris-n--35129-6122-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-17 ((((norm e-5) (vector 0 )) e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--35255-6315 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 _-0 e-5 e-6 norm e-7 e-8 e-9 (let ((sc6 e-6)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))) +(define REPL-Idris-case--35129-6157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-15 (REPL-Idris-execExp arg-5 arg-4 arg-3 arg-2 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-0)) eta-0)))))))(else (lambda (eta-0) (let ((act-15 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) arg-0 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-17 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--35129-6121-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((norm (REPL-Idris-n--35129-6122-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-21 ((((norm e-9) (vector 0 )) e-2) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--35255-6315 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-6 e-7 e-2 e-3 _-0 e-9 e-10 norm e-11 e-12 e-13 (let ((sc10 e-10)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define REPL-Idris-case--34994-6038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-0)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0 arg-9)) eta-0))))))) +(define REPL-Idris-case--34968-5996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-logTime 'erased arg-5 (lambda () "Build deps") (lambda (eta-1) (ModTree-Idris-buildDeps arg-5 arg-3 arg-2 arg-4 arg-1 arg-0 eta-1)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((REPLCommon-Idris-updateErrorLine arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (REPLOpts-Idris-setSource arg-1 e-2 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-0)) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0 e-5)) eta-0)))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setSource arg-1 "" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 arg-0 e-5)) eta-0)))))))))))) +(define REPL-Idris-case--34861-5915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (REPL-Idris-findCG arg-6 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-compile arg-6 e-6 e-5 arg-0 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 )) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 eta-1)) eta-2)))) e-6) eta-0)))))))))))))))) +(define REPL-Idris-case--34771-5834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (LinearCheck-Core-linearCheck (vector 0 ) arg-4 arg-3 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (REPL-Idris-findCG arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-execute arg-4 e-6 e-5 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-0)) eta-0))))))))))))))) +(define REPL-Idris-case--31225-5724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith arg-0 e-1) (vector 0 )))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not available")) eta-0))))))) +(define REPL-Idris-case--34347-5499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma arg-27 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-27 arg-0 arg-20 arg-23)) eta-0))))))) +(define REPL-Idris-case--34268-5436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma e-2 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-2 arg-0 arg-20 arg-23)) eta-0))))))))) +(define REPL-Idris-case--34064-5382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--34268-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))) +(define REPL-Idris-case--34064-5278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) +(define REPL-Idris-case--33999-5218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-pterm arg-7 arg-5 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc4 arg-10)) (cond ((equal? sc4 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-6)) (else e-6)))))) (let ((act-18 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-1 (vector 1 e-1))) ((REPL-Idris-case--34268-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 e-5 e-6 e-7 pappstr e-1 _-1 (Unlit-Parser-isLitLine e-1)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))))))))))))))))))) +(define REPL-Idris-case--31225-5167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((7) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-15 (MakeLemma-Interactive-TTImp-makeLemma arg-4 arg-7 (REPLOpts-Idris-replFC) arg-0 e-15 e-14 eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc7 e-7)) (let ((e-4 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-16 (Resugar-Idris-pterm arg-7 arg-5 e-4 eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (let ((act-17 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-10)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-11)) (else e-11)))))) (let ((act-19 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc11 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc12 e-17)) (case (vector-ref sc12 0) ((1) (let ((e-18 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-18))) ((REPL-Idris-case--34268-5436 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-16 e-5 e-9 e-15 e-14 bind-0 e-4 e-3 _-0 e-8 e-11 e-12 pappstr e-18 _-1 (Unlit-Parser-isLitLine e-18)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))) +(define REPL-Idris-case--33585-4856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines arg-23) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-23)) eta-0))))))) +(define REPL-Idris-case--33524-4794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((l (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-15))))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-7 arg-5 e-2 l eta-1)) arg-16) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-2)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0))))))))))))))) +(define REPL-Idris-case--33462-4752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--33524-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))) +(define REPL-Idris-case--33387-4706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-2))) ((REPL-Idris-case--33524-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 e-6 _-0 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))) (else (REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0))))))) +(define REPL-Idris-case--33332-4642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-15 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-12 eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((act-16 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-8 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-3))) ((REPL-Idris-case--33524-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 bind-0 e-7 e-6 _-0 e-3 _-1 (Unlit-Parser-isLitLine e-3)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))) eta-0))))))) +(define REPL-Idris-case--31225-4596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-16 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-1))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-8 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((act-17 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-15 (vector-ref sc10 1))) (let ((_-1 (vector 1 (vector 0 e-12 e-11)))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--33524-4794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-13 e-5 e-9 _-0 bind-0 e-12 e-11 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int arg-1)))))) eta-0))))))) +(define REPL-Idris-case--32895-4392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-25 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-25 (vector 0 )))) eta-0))))))) +(define REPL-Idris-case--32895-4293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-24)) (else arg-24))))) +(define REPL-Idris-case--32783-4226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc3 arg-12)) (cond ((equal? sc3 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-5)) (else e-5)))))) (let ((sc3 arg-4)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))))))) +(define REPL-Idris-case--32057-4134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--32783-4226 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-0 (REPL-Idris-n--31225-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-0 (vector 0 ) arg-17)))))))) +(define REPL-Idris-case--32057-4027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0)))))))))) +(define REPL-Idris-case--32269-3906 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 arg-24 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-24 (vector 0 )))) eta-0))))))) +(define REPL-Idris-case--32269-3811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21))))) +(define REPL-Idris-case--32151-3714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-11)) (cond ((equal? sc1 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0)))))))))))) +(define REPL-Idris-case--32057-3616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-22) (Syntax-Idris-show_Show__PTerm arg-22)) arg-21))) eta-0))) (else (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0))) (else (let ((e-2 (vector-ref sc1 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc2 arg-12)) (cond ((equal? sc2 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))) +(define REPL-Idris-case--31225-3535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((7) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-15 (ExprSearch-Interactive-TTImp-exprSearch arg-9 arg-6 arg-8 (REPLOpts-Idris-replFC) arg-2 (vector 0 ) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 7 e-12 e-13))) (vector 0 )))) (REPL-Idris-case--32057-4027 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-13 e-6 e-10 e-12 bind-0 e-5 e-8 e-9 tm (REPL-Idris-n--31225-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-12 (vector 0 ) tm)))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 arg-0)) (cond ((equal? sc9 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (Syntax-Idris-show_Show__PTerm arg-14)) e-14))) eta-0)) (else (let ((sc10 e-14)) (case (vector-ref sc10 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0)) (else (let ((e-4 (vector-ref sc10 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-12)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc11 arg-4)) (cond ((equal? sc11 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 1 e-14 (vector 0 ) (vector 1 e-22) e-17 e-18))) (vector 0 )))) (REPL-Idris-case--32057-4134 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-17 e-18 e-6 e-10 e-22 e-14 bind-0 (let ((sc7 e-14)) (let ((e-0 (vector-ref sc7 1))) e-0)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name arg-2)))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) +(define REPL-Idris-case--31863-3380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause arg-8 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-8 (vector 0 )))) eta-0))))))) +(define REPL-Idris-case--31225-3359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-1 (vector 0 )))) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not defined here"))) eta-0))))))) +(define REPL-Idris-case--31700-3256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines arg-12) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-12)) eta-0))))))) +(define REPL-Idris-case--31225-3213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (CaseSplit-IDEMode-Idris-updateCase arg-8 arg-6 arg-4 e-1 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-3)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0)))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-3))) eta-0)))))))) +(define REPL-Idris-case--31225-3137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1)) eta-0))) (else (lambda (eta-0) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-2 1) eta-0))))))) +(define REPL-Idris-case--31225-3076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-7 arg-5 arg-8 eta-1)) arg-9) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-showSep "\xa;" e-5)) eta-0)))))))))))) +(define REPL-Idris-case--31280-2993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)) arg-0) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-10 (vector 0 )))) eta-0))))))) +(define REPL-Idris-case--31280-2884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (REPL-Idris-displayTerm arg-7 arg-5 arg-8 arg-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-11) (Strings-Prelude-C-43C-43 " : " e-5)) (vector 0 )))) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))) +(define REPL-Idris-case--31225-2845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (REPL-Idris-case--31280-2884 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-9 e-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))))) (else (let ((_-0 (vector 0 ))) (REPL-Idris-case--31280-2993 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 "")))))))) +(define REPL-Idris-case--31113-2717 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 (Strings-Prelude-C-43C-43 "\xa;" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\xa;"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--31106-2692-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7))))))) +(define REPL-Idris-case--31040-2634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 arg-5 (Prelude-pack (List-Data-drop 'erased (Prelude-length arg-6) (Prelude-unpack arg-4))))) (else (Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--31031-2627-replaceStr arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (substring arg-4 1 (string-length arg-4))))))))) +(define REPL-Idris-case--30900-2514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile (Strings-Prelude-C-43C-43 arg-3 "~") e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (File-System-writeFile arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0)))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-5) eta-0)))))))) +(define REPL-Idris-case--30886-2494 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-readFile e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (File-System-writeFile (Strings-Prelude-C-43C-43 e-1 "~") e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (File-System-writeFile e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0))))))) +(define REPL-Idris-case--30730-2336 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Chez-Scheme-Compiler-codegenChez)) eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Racket-Scheme-Compiler-codegenRacket)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Gambit-Scheme-Compiler-codegenGambit)) eta-0))))))) +(define REPL-Idris-case--30511-2270 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 "No such code generator available" eta-0))))))) +(define REPL-Idris-case--30511-2259 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6)))))))))) +(define REPL-Idris-case--30511-2227 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6)))))))))) +(define REPL-Idris-case--30511-2195 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6)))))))))) +(define REPL-Idris-case--30511-2163 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-0)))))) +(define REPL-Idris-case--30511-2143 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 e-2)))))) +(define REPL-Idris-case--30419-2060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayClause arg-5 arg-4 arg-3 eta-1)) e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;" (Name-Core-showSep "\xa;" e-6)))) eta-0))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " is not a pattern matching definition")) eta-0))))))) +(define REPL-Idris-case--30037-1734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) arg-8) (else (REPL-Idris-n--29906-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8)))))) +(define REPL-Idris-case--29906-1706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envsC-39 (let ((_-0 (vector 0 e-2 e-3))) (REPL-Idris-case--30037-1734 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 _-0 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) envsC-39)) e-3)) eta-0))))))))))))) +(define REPL-Idris-case--29920-1633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (REPL-Idris-n--29906-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-11)) (else (vector 1 (vector 0 arg-9 arg-10) (REPL-Idris-n--29906-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-11))))))) +(define REPL-Idris-case--29644-1518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 arg-2 arg-12) e-2) e-3)) eta-0))))))) +(define REPL-Idris-case--29644-1434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (REPL-Idris-showCount (TT-Core-multiplicity 'erased arg-4)) (Strings-Prelude-C-43C-43 (REPL-Idris-impBracket (REPL-Idris-n--29644-1387-implicitBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-4) (Strings-Prelude-C-43C-43 (REPL-Idris-tidy arg-2) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm arg-11)))) "\xa;"))) (else ""))))) +(define REPL-Idris-case--29546-1288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))))))) +(define REPL-Idris-case--29543-1267 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (REPL-Idris-case--29546-1288 arg-0 e-3 e-4 e-5 e-6 e-2 (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))(else (vector 0 )))))) +(define REPL-Idris-case--29303-1187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))) +(define REPL-Idris-n--31031-2627-replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (REPL-Idris-case--31040-2634 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 arg-4 (Strings-Data-isPrefixOf arg-4 arg-6))))))) +(define REPL-Idris-n--36825-7752-prompt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "[tc] ") ((1) "") (else "[exec] "))))) +(define REPL-Idris-n--35129-6122-nfun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normaliseAll arg-6 eta-0 eta-1 eta-2 eta-3))))))(else (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normalise arg-6 eta-0 eta-1 eta-2 eta-3)))))))))) +(define REPL-Idris-n--36844-8091-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ ))))) +(define REPL-Idris-n--31106-2692-insertInBlank (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 1 (Unlit-Parser-relit arg-6 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\xa;")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--31113-2717 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) ""))))))))) +(define REPL-Idris-n--29644-1387-implicitBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) 1)(else 0))))) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) 1)(else 0)))))(else 1))))) +(define REPL-Idris-n--36628-7527-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Prelude-substr arg-1 (Prelude-length arg-3) arg-3)))))) +(define REPL-Idris-n--36628-7528-fnameCmd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--36631-7553 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2)))))))))))) +(define REPL-Idris-n--35129-6121-emode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (vector 2 )))))) +(define REPL-Idris-n--29906-1600-dropShadows (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--29920-1633 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-6 e-7 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-3))))))))))))) +(define REPL-Idris-n--31225-3453-dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (vector 0 arg-10 (vector 0 arg-12 arg-13)))(else (let ((e-0 (- arg-11 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (REPL-Idris-n--31225-3453-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-3 arg-10) e-0 (vector 1 e-4 arg-12) e-5)))))(else (vector 0 arg-10 (vector 0 arg-12 arg-13))))))))))) +(define REPL-Idris-n--36844-8092-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (REPL-Idris-n--36844-8091-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--36844-8091-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4)))))) +(define REPL-Idris-n--36844-8093-cmdInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 " " (REPL-Idris-n--36844-8092-col (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))) (Name-Core-showSep " " e-2) (Parser-Idris-show_Show__CmdArg e-6) e-7)))))))))) +(define REPL-Idris-n--31106-2693-addApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--31106-2692-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8)) arg-9))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-n--31106-2693-addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (vector 1 e-2 arg-8) e-3)))) (else (List-Data-reverse 'erased arg-8)))))))))) +(define REPL-Idris-updateFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--30886-2494 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0)))))))) (define REPL-Idris-tidy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) e-0))(else (Name-Core-show_Show__Name arg-0)))))) (define REPL-Idris-showName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "_") 1)(else 0))))) ((2) 1)(else 0))))) -(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Def arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Def arg-4526 arg-4527)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (PrimIO-putStrLn (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Erasable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Detaggable arg types: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Specialise args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-20 (let ((act-20 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Inferrable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-21 ((REPL-Idris-case--29265-1187 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (let ((act-22 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersTo e-7))) eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-23 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0))))))))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (let ((act-23 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersToRuntime e-7))) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to (runtime): " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0))))))))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Flags: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-4524 arg-4525 eta-3)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-4526 arg-4527 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((sc13 (Prelude-not (List-Data-isNil 'erased (let ((sc14 e-7)) (let ((e-20 (vector-ref sc14 21))) e-20)))))) (cond ((equal? sc13 0) (((let ((scinfo (Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-26 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-26) eta-1)))))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define REPL-Idris-showHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 ((REPL-Idris-showEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-16 (Context-Core-getPPrint arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((envsC-39 (let ((_-0 (vector 0 e-2 e-3))) (REPL-Idris-case--29999-1734 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) envsC-39)) e-3)) ext-0))))))))))))))))) -(define REPL-Idris-showEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (Strings-Prelude-C-43C-43 "-------------------------------------\xa;" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))))) eta-0))))))))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 2))) (REPL-Idris-showEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-0 (SubstEnv-TT-Core-subst arg-0 e-3 e-8 e-5))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 (TT-Core-binderType 'erased e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-6 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((pre (REPL-Idris-case--29606-1434 arg-0 e-0 e-3 e-5 e-4 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (REPL-Idris-showName e-3)))) (let ((act-16 ((REPL-Idris-showEnv (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 (vector 1 e-4 arg-4) arg-5 e-0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 e-3 pre) e-9) e-8)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0)))))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (Strings-Prelude-C-43C-43 "-------------------------------------\xa;" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))))) eta-0)))))))))))))))) +(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Def arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Def arg-4526 arg-4527)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (PrimIO-putStrLn (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Erasable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Detaggable arg types: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Specialise args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-20 (let ((act-20 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Inferrable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-21 ((REPL-Idris-case--29303-1187 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (let ((act-22 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersTo e-7))) eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-23 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0))))))))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (let ((act-23 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersToRuntime e-7))) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to (runtime): " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0))))))))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Flags: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-4524 arg-4525 eta-3)))) (lambda (arg-4526) (lambda (arg-4527) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-4526 arg-4527 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((sc13 (Prelude-not (List-Data-isNil 'erased (let ((sc14 e-7)) (let ((e-20 (vector-ref sc14 21))) e-20)))))) (cond ((equal? sc13 0) (((let ((scinfo (Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-26 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-26) eta-1)))))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define REPL-Idris-showHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 ((REPL-Idris-showEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-16 (Context-Core-getPPrint arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((envsC-39 (let ((_-0 (vector 0 e-2 e-3))) (REPL-Idris-case--30037-1734 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-60C-43C-62_Semigroup__String arg-2851 arg-2852))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) envsC-39)) e-3)) ext-0))))))))))))))))) +(define REPL-Idris-showEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (Strings-Prelude-C-43C-43 "-------------------------------------\xa;" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))))) eta-0))))))))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 2))) (REPL-Idris-showEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-0 (SubstEnv-TT-Core-subst arg-0 e-3 e-8 e-5))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 (TT-Core-binderType 'erased e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-6 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((pre (REPL-Idris-case--29644-1434 arg-0 e-0 e-3 e-5 e-4 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (REPL-Idris-showName e-3)))) (let ((act-16 ((REPL-Idris-showEnv (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 (vector 1 e-4 arg-4) arg-5 e-0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 e-3 pre) e-9) e-8)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-5 eta-0)))))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (Strings-Prelude-C-43C-43 "-------------------------------------\xa;" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))))) eta-0)))))))))))))))) (define REPL-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) " 0 " " 1 " (lambda (eta-0) " ") ext-0))) -(define REPL-Idris-setOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2)))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-0 e-3 e-1)))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-2 e-1 e-8 e-3 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-3 e-2 e-8 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-Idris-case--30473-2270 e-5 arg-1 arg-0 (Options-Core-getCG e-5)))))))) +(define REPL-Idris-setOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2)))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-0 e-3 e-1)))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-2 e-1 e-8 e-3 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-3 e-2 e-8 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-Idris-case--30511-2270 e-5 arg-1 arg-0 (Options-Core-getCG e-5)))))))) (define REPL-Idris-rtrim (lambda (arg-0) (Prelude-reverse (Strings-Data-ltrim (Prelude-reverse arg-0))))) (define REPL-Idris-replCmd (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 "") (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0)))))))))))) -(define REPL-Idris-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (PrimIO-putStr (Strings-Prelude-C-43C-43 (REPL-Idris-n--36787-7752-prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> ")) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (let ((act-18 (PrimIO-getLine ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((act-19 (File-System-fEOF (File-System-stdin) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-20 (let ((act-20 (PrimIO-putStrLn "" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" ext-0)))))) (else (let ((act-20 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 e-8) ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0))))))))))))))))))))))))))))))))))) -(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--30993-2627-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-0)) arg-1 e-3) e-4))))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-proofSearch arg-0 arg-1 e-1 e-7)))))(else (let ((sc0 arg-3)) (vector 0 ))))))))))) -(define REPL-Idris-processEdit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-showSep "\xa;" e-7)) eta-0))))))))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Metadata-Core-findTypeAt arg-3 (lambda (p) (lambda (n) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int e-0 1) (Prelude-C-45_Neg__Int e-1 1)) p))) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((_-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) ((REPL-Idris-case--31242-2884 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-10 e-12 e-11 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))) (else (let ((_-0 (vector 0 ))) ((REPL-Idris-case--31242-2993 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((find (REPL-Idris-case--31187-3137 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-C-62_Ord__Int e-5 (Prelude-fromInteger_Num__Int 0))))) (lambda (eta-0) (let ((act-15 (CaseSplit-Interactive-TTImp-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (REPL-Idris-anyAt 'erased find eta-1 eta-2))) e-6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-16 (CaseSplit-IDEMode-Idris-updateCase arg-0 arg-2 arg-4 e-1 (Prelude-C-45_Neg__Int e-4 1) (Prelude-C-45_Neg__Int e-5 1) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-3)) (cond ((equal? sc4 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-8) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-4 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-8)) eta-0))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-8))) eta-0))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (CaseSplit-IDEMode-Idris-getClause arg-0 arg-3 arg-4 e-8 e-9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer e-8) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-1 (vector 0 )))) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) " not defined here"))) eta-0)))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-12 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-17 (Context-Core-lookupDefName e-12 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((7) (let ((e-18 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((0) (let ((act-18 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-20 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-20 (vector 0 ) eta-1 eta-2))) e-19) eta-0))) (let ((sc11 act-20)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 7 e-18 e-17))) (vector 0 )))) (REPL-Idris-case--32019-4027 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-9 e-16 e-18 bind-0 e-19 e-20 e-21 tm (REPL-Idris-n--31187-3453-dropLams e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-18 (vector 0 ) tm)))) e-21) eta-0))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-22 (vector-ref sc12 1))) (let ((sc13 e-14)) (cond ((equal? sc13 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-6) (Syntax-Idris-show_Show__PTerm arg-6)) e-22))) eta-0)) (else (let ((sc14 e-22)) (case (vector-ref sc14 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0)) (else (let ((e-4 (vector-ref sc14 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc15 e-10)) (cond ((equal? sc15 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch e-12 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-11 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0)))))))))))))))))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-20 (vector-ref sc7 2))) (let ((e-19 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 1 e-21 (vector 0 ) (vector 1 e-22) e-17 e-18))) (vector 0 )))) ((REPL-Idris-case--32019-4134 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-18 e-9 e-16 e-22 e-21 bind-0 (let ((sc11 e-21)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name e-12)))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((act-17 (Context-Core-lookupDefExact e-9 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-18 (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) e-9 eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-19 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((act-19 (REPLOpts-Idris-getSourceLine arg-4 e-16 eta-1))) (let ((sc13 act-19)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-20 (vector-ref sc13 1))) (let ((_-1 (vector 1 (vector 0 e-19 e-18)))) (let ((sc14 e-20)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--33486-4794 e-17 e-16 e-15 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-14 e-13 e-8 e-9 _-0 bind-0 e-19 e-18 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-15 e-16 e-17)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-17)))) eta-0))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int e-16)))))) eta-0))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-20 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-17 (REPL-Idris-lookupDefTyName e-20 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (let ((act-18 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-replFC) e-20 e-15 e-14 eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-11 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc11 e-12)) (let ((e-4 (vector-ref sc11 1))) (let ((e-3 (vector-ref sc11 2))) (let ((act-19 (Resugar-Idris-pterm arg-0 arg-2 e-4 eta-0))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-20 (Resugar-Idris-pterm arg-0 arg-2 e-3 eta-0))) (let ((sc13 act-20)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc14 act-21)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc14 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-21)) (else e-21)))))) (let ((act-22 (REPLOpts-Idris-getSourceLine arg-4 e-19 eta-0))) (let ((sc15 act-22)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc16 e-23)) (case (vector-ref sc16 0) ((1) (let ((e-24 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-24))) ((REPL-Idris-case--34230-5436 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 pappstr e-24 _-1 (Unlit-Parser-isLitLine e-24)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))))))))))))))))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))))))))))))))))))) ((6) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not implemented yet")) eta-0))) (else (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-getSourceLine arg-4 e-25 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith e-26 e-1) (vector 0 )))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not available")) eta-0))))))))))))))))) +(define REPL-Idris-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (PrimIO-putStr (Strings-Prelude-C-43C-43 (REPL-Idris-n--36825-7752-prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> ")) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (let ((act-18 (PrimIO-getLine ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((act-19 (File-System-fEOF (File-System-stdin) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-20 (let ((act-20 (PrimIO-putStrLn "" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" ext-0)))))) (else (let ((act-20 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 e-8) ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0))))))))))))))))))))))))))))))))))) +(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--31031-2627-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-0)) arg-1 e-3) e-4))))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-proofSearch arg-0 arg-1 e-1 e-7)))))(else (let ((sc0 arg-3)) (vector 0 ))))))))))) +(define REPL-Idris-processEdit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-showSep "\xa;" e-7)) eta-0))))))))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Metadata-Core-findTypeAt arg-3 (lambda (p) (lambda (n) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int e-0 1) (Prelude-C-45_Neg__Int e-1 1)) p))) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((_-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) ((REPL-Idris-case--31280-2884 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-10 e-12 e-11 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))) (else (let ((_-0 (vector 0 ))) ((REPL-Idris-case--31280-2993 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((find (REPL-Idris-case--31225-3137 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-C-62_Ord__Int e-5 (Prelude-fromInteger_Num__Int 0))))) (lambda (eta-0) (let ((act-15 (CaseSplit-Interactive-TTImp-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (REPL-Idris-anyAt 'erased find eta-1 eta-2))) e-6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-16 (CaseSplit-IDEMode-Idris-updateCase arg-0 arg-2 arg-4 e-1 (Prelude-C-45_Neg__Int e-4 1) (Prelude-C-45_Neg__Int e-5 1) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-3)) (cond ((equal? sc4 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-8) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-4 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-8)) eta-0))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-8))) eta-0))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (CaseSplit-IDEMode-Idris-getClause arg-0 arg-3 arg-4 e-8 e-9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer e-8) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-1 (vector 0 )))) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) " not defined here"))) eta-0)))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-12 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-17 (Context-Core-lookupDefName e-12 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((7) (let ((e-18 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((0) (let ((act-18 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-20 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-20 (vector 0 ) eta-1 eta-2))) e-19) eta-0))) (let ((sc11 act-20)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 7 e-18 e-17))) (vector 0 )))) (REPL-Idris-case--32057-4027 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-9 e-16 e-18 bind-0 e-19 e-20 e-21 tm (REPL-Idris-n--31225-3453-dropLams e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-18 (vector 0 ) tm)))) e-21) eta-0))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-22 (vector-ref sc12 1))) (let ((sc13 e-14)) (cond ((equal? sc13 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-6) (Syntax-Idris-show_Show__PTerm arg-6)) e-22))) eta-0)) (else (let ((sc14 e-22)) (case (vector-ref sc14 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0)) (else (let ((e-4 (vector-ref sc14 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc15 e-10)) (cond ((equal? sc15 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch e-12 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-11 1)) eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0)))))))))))))))))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-20 (vector-ref sc7 2))) (let ((e-19 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 1 e-21 (vector 0 ) (vector 1 e-22) e-17 e-18))) (vector 0 )))) ((REPL-Idris-case--32057-4134 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-18 e-9 e-16 e-22 e-21 bind-0 (let ((sc11 e-21)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name e-12)))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((act-17 (Context-Core-lookupDefExact e-9 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-18 (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) e-9 eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-19 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((act-19 (REPLOpts-Idris-getSourceLine arg-4 e-16 eta-1))) (let ((sc13 act-19)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-20 (vector-ref sc13 1))) (let ((_-1 (vector 1 (vector 0 e-19 e-18)))) (let ((sc14 e-20)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--33524-4794 e-17 e-16 e-15 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-14 e-13 e-8 e-9 _-0 bind-0 e-19 e-18 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (else ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-15 e-16 e-17)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))) eta-1))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-17)))) eta-0))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int e-16)))))) eta-0))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-20 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-17 (REPL-Idris-lookupDefTyName e-20 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (let ((act-18 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-replFC) e-20 e-15 e-14 eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-11 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc11 e-12)) (let ((e-4 (vector-ref sc11 1))) (let ((e-3 (vector-ref sc11 2))) (let ((act-19 (Resugar-Idris-pterm arg-0 arg-2 e-4 eta-0))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-20 (Resugar-Idris-pterm arg-0 arg-2 e-3 eta-0))) (let ((sc13 act-20)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc14 act-21)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc14 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-21)) (else e-21)))))) (let ((act-22 (REPLOpts-Idris-getSourceLine arg-4 e-19 eta-0))) (let ((sc15 act-22)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc16 e-23)) (case (vector-ref sc16 0) ((1) (let ((e-24 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-24))) ((REPL-Idris-case--34268-5436 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 pappstr e-24 _-1 (Unlit-Parser-isLitLine e-24)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))))))))))))))))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))))))))))))))))))) ((6) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not implemented yet")) eta-0))) (else (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-getSourceLine arg-4 e-25 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith e-26 e-1) (vector 0 )))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not available")) eta-0))))))))))))))))) (define REPL-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (Context-Core-branch arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (Context-Core-commit arg-0 eta-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-10) eta-0))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-0 e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-1 e-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-2 e-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-writeIORef 'erased arg-4 e-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-23 (Error-Idris-display arg-0 arg-2 err eta-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-13)) eta-0)))))))))))))))))))))))) ext-0))))))))))))))))))))))) -(define REPL-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35091-6157 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-16 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-15 e-16) eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) e-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-2 eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (let ((act-21 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-9 e-11)) eta-0))))))))))))))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-2) eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7)) eta-0)))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35091-6688 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((4) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 (vector 1 e-3) e-8 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-3 eta-0))))))))))))) ((13) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setWorkingDir arg-0 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Context-Core-getWorkingDir eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-6)) eta-0))))))))))))) ((14) (lambda (eta-0) (let ((act-15 (Context-Core-getWorkingDir eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-5)) eta-0)))))))) ((5) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35091-6804 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 eta-0))))) ((7) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 e-7 eta-0)))) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyName e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-17 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-9 e-11 (vector 0 ) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-18 (let ((act-18 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-12 eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-13)) eta-0))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-8) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((15) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-9) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 15 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 e-6)) ((REPL-Idris-case--36064-7073 e-9 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((16) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-10 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 16 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-18 (let ((act-18 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Totality arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Totality arg-4526 arg-4527)))) e-8 eta-1)))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 fn e-8)) eta-1)))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((10) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Context-Core-lookupCtxtName e-11 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-setOpt arg-0 arg-4 e-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((12) (lambda (eta-0) (let ((act-15 (REPL-Idris-getOptions arg-0 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 e-5)) eta-0)))))))) ((17) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setLogLevel arg-0 e-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 e-13)) eta-0)))))))) ((18) (lambda (eta-0) (let ((act-15 (Context-Core-getUserHoles arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 17 e-5)) eta-0)))))))) ((19) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 1 e-2)))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 22 e-7)) eta-0)))))))))))))))))))))) ((21) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 )) eta-0))) ((22) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 (Version-Idris-version))) eta-0))))))) +(define REPL-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35129-6157 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-16 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-15 e-16) eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) e-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-2 eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (let ((act-21 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-9 e-11)) eta-0))))))))))))))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-2) eta-0))(else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7)) eta-0)))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35129-6688 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((4) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 (vector 1 e-3) e-8 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-3 eta-0))))))))))))) ((13) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setWorkingDir arg-0 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Context-Core-getWorkingDir eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-6)) eta-0))))))))))))) ((14) (lambda (eta-0) (let ((act-15 (Context-Core-getWorkingDir eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-5)) eta-0)))))))) ((5) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35129-6804 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 eta-0))))) ((7) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 e-7 eta-0)))) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyName e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-17 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-9 e-11 (vector 0 ) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-18 (let ((act-18 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-12 eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-13)) eta-0))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-8) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((15) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-9) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 15 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 e-6)) ((REPL-Idris-case--36102-7073 e-9 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((16) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-10 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 16 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-18 (let ((act-18 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4524) (lambda (arg-4525) (Context-Core-full_HasNames__Totality arg-4524 arg-4525))) (lambda (arg-4526) (lambda (arg-4527) (Context-Core-resolved_HasNames__Totality arg-4526 arg-4527)))) e-8 eta-1)))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 fn e-8)) eta-1)))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((10) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Context-Core-lookupCtxtName e-11 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-setOpt arg-0 arg-4 e-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((12) (lambda (eta-0) (let ((act-15 (REPL-Idris-getOptions arg-0 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 e-5)) eta-0)))))))) ((17) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setLogLevel arg-0 e-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 e-13)) eta-0)))))))) ((18) (lambda (eta-0) (let ((act-15 (Context-Core-getUserHoles arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 17 e-5)) eta-0)))))))) ((19) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 1 e-2)))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 22 e-7)) eta-0)))))))))))))))))))))) ((21) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 )) eta-0))) ((22) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 (Version-Idris-version))) eta-0))))))) (define REPL-Idris-printClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-pterm arg-0 arg-1 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-pterm arg-0 arg-1 e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-6)))))) eta-0))))))))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-pterm arg-0 arg-1 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-pterm arg-0 arg-1 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat arg-3 (+ 1 (+ 1 0))) eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-7) (Strings-Prelude-C-43C-43 " with (" (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) ")\xa;"))))) (Name-Core-showSep "\xa;" e-9))) eta-0))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-pterm arg-0 arg-1 e-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) " impossible")))) eta-0))))))))))))) -(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--36590-7609 arg-0 (REPL-Idris-n--36590-7528-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 4 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 4 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 13 eta-0))) (vector 0 )))) arg-0)))) +(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--36628-7609 arg-0 (REPL-Idris-n--36628-7528-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 4 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 4 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 13 eta-0))) (vector 0 )))) arg-0)))) (define REPL-Idris-parseEmptyCmd (lambda () (Core-Parser-Text-C-42C-62 'erased 'erased 'erased 1 1 (Source-Rule-Parser-eoi) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))) (define REPL-Idris-parseCmd (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-command)) (lambda (c) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-7517) (Core-Parser-Text-pure 'erased 'erased (vector 1 c)))))))) (define REPL-Idris-lookupDefTyName (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupNameBy 'erased (lambda (g) (vector 0 (let ((sc0 g)) (let ((e-17 (vector-ref sc0 18))) e-17)) (let ((sc0 g)) (let ((e-2 (vector-ref sc0 3))) e-2)))) ext-2 ext-1 ext-0))) (define REPL-Idris-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (REPLCommon-Idris-resetContext arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (let ((act-16 (File-System-readFile arg-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-17 (Context-Core-logTime 'erased arg-0 (lambda () "Build deps") (lambda (eta-0) (ModTree-Idris-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((REPLCommon-Idris-updateErrorLine arg-4 e-7) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-19 (REPLOpts-Idris-setSource arg-4 e-2 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-5)) ext-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-5 e-7)) ext-0))))))))))))))))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-17 (REPLOpts-Idris-setSource arg-4 "" ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 arg-5 e-7)) ext-0)))))))))))))))))))) -(define REPL-Idris-isHole (lambda (arg-0) (REPL-Idris-case--29505-1267 arg-0 (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))) -(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--36694-7642 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5)))) +(define REPL-Idris-isHole (lambda (arg-0) (REPL-Idris-case--29543-1267 arg-0 (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))) +(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--36732-7642 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5)))) (define REPL-Idris-impBracket (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 arg-1 "}"))))))) (define REPL-Idris-handleResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((21) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" eta-0)))(else (lambda (eta-0) (let ((act-15 ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-Idris-repl arg-0 arg-1 arg-2 arg-3 arg-4 eta-0))))))))))) (define REPL-Idris-handleMissing (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3))))))))))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-4) ": All cases covered"))))))) (define REPL-Idris-getOptions (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) (vector 1 (vector 2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 3 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (vector 1 (vector 4 (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4))) (vector 0 ))))))) ext-0))))))))))))) -(define REPL-Idris-findCG (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--30692-2336 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0)))))))) +(define REPL-Idris-findCG (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--30730-2336 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0)))))))) (define REPL-Idris-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) arg-4) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-6 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-18 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (REPL-Idris-findCG arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-execute arg-0 e-9 e-8 ext-0)))))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-4)) ext-0))))))))))))))))))))))))))))) (define REPL-Idris-displayType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))) eta-0)))))))) (lambda () (lambda (num) (lambda (eta-0) (REPL-Idris-showHole (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) e-2 num (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0)))) (REPL-Idris-isHole e-7))))))))) (define REPL-Idris-displayTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 ext-0)))))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Syntax-Idris-show_Show__PTerm e-5)) ext-0)))))))) (define REPL-Idris-displayResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-1) eta-0))) ((1) (let ((e-23 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-23))) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" e-3) eta-0)))) ((6) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-4) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Loaded file " e-6) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-8)))) eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error(s) building file " e-9) eta-0)))) ((10) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "No file can be reloaded" eta-0))) ((11) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-11 "'")) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "Compilation failed" eta-0))) ((13) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-12 " written")) eta-0)))) ((14) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-13) eta-0)))) ((15) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-14)) eta-0)))) ((16) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-15)) eta-0)))) ((17) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 "No holes" eta-0))) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "1 hole: " (Name-Core-show_Show__Name e-26)) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-16)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-16)))) eta-0))))))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-16)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-16)))) eta-0))))))) ((19) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-17)) eta-0)))) ((20) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Version-Idris-showVersion 0 e-18) eta-0)))) ((3) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (REPL-Idris-displayHelp) eta-0))) ((22) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 1))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" e-29) eta-0))))))) ((1) (let ((e-30 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-30 eta-0)))) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-31 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-33) "\xa;")))) e-34) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) ((18) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Syntax-Idris-show_Show__REPLOpt eta-1)) e-20)) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define REPL-Idris-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--30381-2060 e-2 e-6 e-7 arg-2 arg-1 arg-0 (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))))))))))) +(define REPL-Idris-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--30419-2060 e-2 e-6 e-7 arg-2 arg-1 arg-0 (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))))))))))) (define REPL-Idris-displayPatTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugarNoPatvars (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 ext-0)))))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Syntax-Idris-show_Show__PTerm e-5)) ext-0)))))))) -(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--36806-8093-cmdInfo eta-0)) (Parser-Idris-help))))) +(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--36844-8093-cmdInfo eta-0)) (Parser-Idris-help))))) (define REPL-Idris-displayErrors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-1)))) eta-0)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) (define REPL-Idris-displayClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-10 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-5 eta-0)))))))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-11 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-8 eta-0)))))))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-8)))) eta-0))))))))))))))))))))))) (define REPL-Idris-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-15 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) arg-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-18 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (REPL-Idris-findCG arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-compile arg-0 e-9 e-8 arg-6 ext-0)))))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 )) eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 eta-0)) eta-1)))) e-9) ext-0)))))))))))))))))))))))))))))) (define REPL-Idris-caseSplit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-rtrim arg-0) e-4)))(else (let ((sc1 arg-2)) (vector 1 arg-0 (vector 0 )))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-caseSplit arg-0 e-1 e-7)))))(else (let ((sc0 arg-2)) (vector 1 arg-0 (vector 0 )))))))))))) (define REPL-Idris-anyAt (lambda (arg-0 arg-1 arg-2 arg-3) (arg-1 arg-2))) -(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--31068-2693-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5)))) +(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--31106-2693-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5)))) (define REPL-Idris-addClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (REPL-Idris-rtrim arg-0) arg-2))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (REPL-Idris-addClause arg-0 e-0 e-3))))) (else (vector 1 arg-0 (vector 0 ))))))))))) (define Stream-Data-repeat (lambda (arg-0 arg-1) (vector 0 arg-1 (lambda () (Stream-Data-repeat 'erased arg-1))))) (define MakeLemma-Interactive-TTImp-case--13767-16625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-3 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-3 arg-2 e-2))) eta-0))))))) @@ -6929,58 +6929,58 @@ (define CommandLine-Idris-findMatch (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 1 (vector 14 e-6) (vector 0 )) e-7)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-matchFlag e-2 arg-1) (lambda (bind-0) (let ((sc1 bind-0)) (case (vector-ref sc1 0) ((0) (CommandLine-Idris-findMatch e-3 arg-1)) (else (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))))))))))))) (define OptDesc-CommandLine-Idris-argdescs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define OptDesc-CommandLine-Idris-action (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define Package-Idris-case--35759-18494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-16) e-3 e-4 e-5 e-6)))))))))) -(define Package-Idris-case--35705-18380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-3 e-4 e-8 e-7)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0)))))))))))))))))))))) -(define Package-Idris-case--35651-18333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Package-Idris-addFields arg-2 e-9 (Package-Idris-initPkgDesc e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-setSourceDir arg-2 (let ((sc3 e-5)) (let ((e-15 (vector-ref sc3 16))) e-15)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc4 e-5)) (let ((e-14 (vector-ref sc4 15))) e-14))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 ((Package-Idris-n--35584-18221-loadDependencies arg-0 arg-1 arg-2 (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 11))) e-10))) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc6 arg-0)) (case (vector-ref sc6 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-3 (vector-ref sc6 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-3 (vector 0 )))))) (let ((act-19 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-1 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-15 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-14 (vector-ref sc9 6))) (let ((e-13 (vector-ref sc9 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-15 e-4 e-14 e-13)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0)))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc arg-4 e-5) e-5) eta-0)))))))) -(define Package-Idris-case--35584-18280 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Source-Parser-parseFile 'erased e-9 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Idris-parsePkgDesc e-9)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-18324) (Core-Parser-Text-pure 'erased 'erased desc)))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-17 (Package-Idris-addFields arg-2 e-11 (Package-Idris-initPkgDesc e-12) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-18 (Context-Core-setSourceDir arg-2 (let ((sc8 e-13)) (let ((e-15 (vector-ref sc8 16))) e-15)) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc9 e-13)) (let ((e-22 (vector-ref sc9 15))) e-22))) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-20 ((Package-Idris-n--35584-18221-loadDependencies arg-0 arg-1 arg-2 (let ((sc10 e-13)) (let ((e-27 (vector-ref sc10 11))) e-27))) eta-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc11 arg-0)) (case (vector-ref sc11 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-3 (vector-ref sc11 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased e-10 (vector 1 e-3 (vector 0 )))))) (let ((act-21 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc13 act-22)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-23 (let ((act-23 (IORef-Data-writeIORef 'erased arg-1 (let ((sc14 e-18)) (let ((e-0 (vector-ref sc14 1))) (let ((e-23 (vector-ref sc14 2))) (let ((e-21 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-20 (vector-ref sc14 6))) (let ((e-19 (vector-ref sc14 7))) (vector 0 e-0 e-23 (vector 1 srcC-39) e-21 e-4 e-20 e-19)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc14 act-23)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0))))))))))))))))))))))))))))))))))))))))) (else (let ((e-11 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc e-9 e-11) e-11) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0))))))) -(define Package-Idris-case--35311-18078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Package-Idris-install arg-3 arg-1 arg-7 eta-0)))(else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) -(define Package-Idris-case--35311-18006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) -(define Package-Idris-case--35280-17979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (Package-Idris-build arg-4 arg-3 arg-2 arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))) ((1) (lambda (eta-0) (let ((act-15 (Package-Idris-build arg-4 arg-3 arg-2 arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Package-Idris-install arg-4 arg-2 arg-8 eta-0))(else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))) ((2) (lambda (eta-0) (Package-Idris-clean arg-4 arg-2 arg-8 eta-0))) (else (lambda (eta-0) (Package-Idris-runRepl arg-4 arg-2 arg-8 eta-0))))))) -(define Package-Idris-case--35245-17955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Package-Idris-addFields arg-4 e-9 (Package-Idris-initPkgDesc e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((0) (let ((act-16 (Package-Idris-build arg-4 arg-3 arg-2 e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))) ((1) (let ((act-16 (Package-Idris-build arg-4 arg-3 arg-2 e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Package-Idris-install arg-4 arg-2 e-5 eta-0))(else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))) ((2) (Package-Idris-clean arg-4 arg-2 e-5 eta-0)) (else (Package-Idris-runRepl arg-4 arg-2 e-5 eta-0))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc arg-0 e-5) e-5) eta-0)))))))) -(define Package-Idris-case--34904-17857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 e-3 e-2))))))))) -(define Package-Idris-case--34904-17696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((builddir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "ttc")))))) (let ((execdir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-5)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-10) (vector 1 v arg-10))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) arg-8))) (lambda (eta-0) (let ((act-15 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-1) (lambda (eta-2) (Package-Idris-n--34904-17587-deleteFolder arg-0 arg-1 arg-2 builddir eta-1 eta-2))) (lambda (ks) (lambda (eta-1) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) eta-3)) (Core-Core-traverse 'erased 'erased (lambda (eta-3) (Package-Idris-n--34904-17588-deleteBin arg-0 arg-1 arg-2 builddir ks eta-3)) eta-1) eta-2)))) pkgTrie eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Package-Idris-n--34904-17587-deleteFolder arg-0 arg-1 arg-2 builddir (vector 0 ) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (e) (lambda (eta-1) (Package-Idris-n--34904-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 execdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e)) eta-1)))) (let ((sc3 arg-0)) (let ((e-13 (vector-ref sc3 14))) e-13))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Package-Idris-runScript (let ((sc4 arg-0)) (let ((e-21 (vector-ref sc4 22))) e-21))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) -(define Package-Idris-case--34910-17599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-3) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define Package-Idris-case--34794-17513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34787-17482-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-4 ksC-39) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 arg-8) e-5)))) e-6)))) eta-0)))))))))))))))))) -(define Package-Idris-case--34452-17177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Package-Idris-runScript (let ((sc3 arg-0)) (let ((e-19 (vector-ref sc3 20))) e-19))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0))))))) -(define Package-Idris-case--34408-17142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc5 arg-0)) (let ((e-19 (vector-ref sc5 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0))))))) -(define Package-Idris-case--34372-17107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Directory-Core-mkdirs (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-16 (let ((act-16 (Directory-System-changeDir (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (let ((act-18 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc7 arg-0)) (let ((e-19 (vector-ref sc7 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " arg-9)) eta-0))))))) -(define Package-Idris-case--34325-17079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((installPrefix (Strings-Prelude-C-43C-43 (let ((sc1 (let ((sc2 (let ((sc3 arg-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir installPrefix eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 (let ((act-16 ((Directory-Core-mkdirs (vector 1 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((act-17 (let ((act-17 (Directory-System-changeDir (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)) (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 installPrefix (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 (let ((act-19 (Directory-System-changeDir e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc9 arg-0)) (let ((e-19 (vector-ref sc9 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) -(define Package-Idris-case--34144-16921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))) -(define Package-Idris-case--34099-16876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (Package-Idris-copyFile arg-8 arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased arg-1)))) eta-0))))))) -(define Package-Idris-case--34061-16812 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Binary-Utils-writeToFile arg-0 e-2 eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0)))))))) -(define Package-Idris-case--33891-16704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((mainn (vector 0 (vector 1 "Main" (vector 0 )) (vector 1 "main")))) (lambda (eta-0) (Package-Idris-compileMain arg-3 arg-2 arg-1 mainn e-6 arg-10 eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (FC-Core-emptyFC) "No main module given") eta-0))))))) -(define Package-Idris-case--33849-16652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Package-Idris-case--33891-16704 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 (let ((sc1 arg-0)) (let ((e-12 (vector-ref sc1 13))) e-12))))))))) -(define Package-Idris-case--33790-16617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (let ((_-0 (vector 0 ))) ((Package-Idris-case--33849-16652 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 (let ((sc1 arg-0)) (let ((e-13 (vector-ref sc1 14))) e-13))) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Package-Idris-runScript (let ((sc2 arg-0)) (let ((e-17 (vector-ref sc2 18))) e-17))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-9) eta-0))))))) -(define Package-Idris-case--33682-16474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((SetOptions-Idris-preOptions arg-3 arg-2 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 e-5) eta-0)))))))) -(define Package-Idris-case--33475-16394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-9 arg-10 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) -(define Package-Idris-case--32559-16242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (vector 1 (vector 0 arg-1 arg-0))))))))))))))))))))))))))) -(define Package-Idris-case--32559-16197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 (vector 0 arg-1 arg-0)) e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-16152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 arg-1 arg-0)) e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-16107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-1 arg-0)) e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-16062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 arg-1 arg-0)) e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-16017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (vector 1 (vector 0 arg-1 arg-0)) e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector 1 arg-0) e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (vector 1 (vector 0 arg-1 arg-0)) e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 arg-0) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-0 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15741 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15659 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-0) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-0) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-case--32559-15458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) -(define Package-Idris-n--33475-16262-toSource (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Directory-Core-nsToSource arg-2 e-2 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 e-5)) eta-0)))))))))))) -(define Package-Idris-n--32156-14966-strField (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent arg-2)) (lambda () (lambda (_-15008) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15019) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-constant)) (lambda () (lambda (c) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Package-Idris-n--32156-14965-getStr arg-0 arg-1 (vector 0 arg-0 start end) arg-2 c)))))))))))))))) -(define Package-Idris-n--35584-18221-loadDependencies (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-2 eta-0 eta-1))) ext-0))) -(define Package-Idris-n--34787-17482-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-1) (These-Data-bifold 'erased arg-1 eta-1)) eta-0)) (Package-Idris-bitraverseC 'erased 'erased 'erased 'erased (arg-3 arg-5) (lambda (sm) ((Package-Idris-foldlC 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34787-17482-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-4 ksC-39) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 x) e-5)))) e-6)))) eta-0)))))))))))))))))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))) (StringMap-Data-toList 'erased sm))) arg-6) ext-0))) -(define Package-Idris-n--33475-16263-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Package-Idris-addField arg-2 arg-3 arg-4 e-2 arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Package-Idris-n--33475-16263-go arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0)))))))))))))) -(define Package-Idris-n--32156-14965-getStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Core-Parser-Text-pure 'erased 'erased ((arg-1 arg-2) e-0))))(else (Core-Parser-Text-fail 'erased 'erased 'erased (Strings-Prelude-C-43C-43 arg-3 " field must be a string"))))))) -(define Package-Idris-n--34904-17587-deleteFolder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Package-Idris-n--34904-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Name-Core-showSep (Options-Core-dirSep) arg-4))) ext-0))) -(define Package-Idris-n--34904-17588-deleteBin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((ttFile (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 (Name-Core-showSep (Options-Core-dirSep) arg-4) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-5)))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34904-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 ttFile ".ttc") eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Package-Idris-n--34904-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 ttFile ".ttm") eta-0))))))))) -(define Package-Idris-n--34904-17586-delete (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (File-System-fileRemove arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-3) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) +(define Package-Idris-case--35797-18494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-16) e-3 e-4 e-5 e-6)))))))))) +(define Package-Idris-case--35743-18380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-3 e-4 e-8 e-7)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0)))))))))))))))))))))) +(define Package-Idris-case--35689-18333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Package-Idris-addFields arg-2 e-9 (Package-Idris-initPkgDesc e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-setSourceDir arg-2 (let ((sc3 e-5)) (let ((e-15 (vector-ref sc3 16))) e-15)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc4 e-5)) (let ((e-14 (vector-ref sc4 15))) e-14))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 ((Package-Idris-n--35622-18221-loadDependencies arg-0 arg-1 arg-2 (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 11))) e-10))) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc6 arg-0)) (case (vector-ref sc6 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-3 (vector-ref sc6 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-3 (vector 0 )))))) (let ((act-19 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-1 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-15 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-14 (vector-ref sc9 6))) (let ((e-13 (vector-ref sc9 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-15 e-4 e-14 e-13)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0)))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc arg-4 e-5) e-5) eta-0)))))))) +(define Package-Idris-case--35622-18280 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Source-Parser-parseFile 'erased e-9 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Idris-parsePkgDesc e-9)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-18324) (Core-Parser-Text-pure 'erased 'erased desc)))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-17 (Package-Idris-addFields arg-2 e-11 (Package-Idris-initPkgDesc e-12) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-18 (Context-Core-setSourceDir arg-2 (let ((sc8 e-13)) (let ((e-15 (vector-ref sc8 16))) e-15)) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc9 e-13)) (let ((e-22 (vector-ref sc9 15))) e-22))) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-20 ((Package-Idris-n--35622-18221-loadDependencies arg-0 arg-1 arg-2 (let ((sc10 e-13)) (let ((e-27 (vector-ref sc10 11))) e-27))) eta-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc11 arg-0)) (case (vector-ref sc11 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-3 (vector-ref sc11 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased e-10 (vector 1 e-3 (vector 0 )))))) (let ((act-21 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc13 act-22)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-23 (let ((act-23 (IORef-Data-writeIORef 'erased arg-1 (let ((sc14 e-18)) (let ((e-0 (vector-ref sc14 1))) (let ((e-23 (vector-ref sc14 2))) (let ((e-21 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-20 (vector-ref sc14 6))) (let ((e-19 (vector-ref sc14 7))) (vector 0 e-0 e-23 (vector 1 srcC-39) e-21 e-4 e-20 e-19)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc14 act-23)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0))))))))))))))))))))))))))))))))))))))))) (else (let ((e-11 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc e-9 e-11) e-11) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0))))))) +(define Package-Idris-case--35349-18078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Package-Idris-install arg-3 arg-1 arg-7 eta-0)))(else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) +(define Package-Idris-case--35349-18006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) +(define Package-Idris-case--35318-17979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (Package-Idris-build arg-4 arg-3 arg-2 arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))) ((1) (lambda (eta-0) (let ((act-15 (Package-Idris-build arg-4 arg-3 arg-2 arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Package-Idris-install arg-4 arg-2 arg-8 eta-0))(else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))) ((2) (lambda (eta-0) (Package-Idris-clean arg-4 arg-2 arg-8 eta-0))) (else (lambda (eta-0) (Package-Idris-runRepl arg-4 arg-2 arg-8 eta-0))))))) +(define Package-Idris-case--35283-17955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Package-Idris-addFields arg-4 e-9 (Package-Idris-initPkgDesc e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((0) (let ((act-16 (Package-Idris-build arg-4 arg-3 arg-2 e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))) ((1) (let ((act-16 (Package-Idris-build arg-4 arg-3 arg-2 e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Package-Idris-install arg-4 arg-2 e-5 eta-0))(else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))) ((2) (Package-Idris-clean arg-4 arg-2 e-5 eta-0)) (else (Package-Idris-runRepl arg-4 arg-2 e-5 eta-0))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc arg-0 e-5) e-5) eta-0)))))))) +(define Package-Idris-case--34942-17857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 e-3 e-2))))))))) +(define Package-Idris-case--34942-17696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((builddir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "ttc")))))) (let ((execdir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-5)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-10) (vector 1 v arg-10))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) arg-8))) (lambda (eta-0) (let ((act-15 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-1) (lambda (eta-2) (Package-Idris-n--34942-17587-deleteFolder arg-0 arg-1 arg-2 builddir eta-1 eta-2))) (lambda (ks) (lambda (eta-1) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) eta-3)) (Core-Core-traverse 'erased 'erased (lambda (eta-3) (Package-Idris-n--34942-17588-deleteBin arg-0 arg-1 arg-2 builddir ks eta-3)) eta-1) eta-2)))) pkgTrie eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Package-Idris-n--34942-17587-deleteFolder arg-0 arg-1 arg-2 builddir (vector 0 ) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (e) (lambda (eta-1) (Package-Idris-n--34942-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 execdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e)) eta-1)))) (let ((sc3 arg-0)) (let ((e-13 (vector-ref sc3 14))) e-13))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Package-Idris-runScript (let ((sc4 arg-0)) (let ((e-21 (vector-ref sc4 22))) e-21))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Package-Idris-case--34948-17599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-3) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define Package-Idris-case--34832-17513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34825-17482-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-4 ksC-39) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 arg-8) e-5)))) e-6)))) eta-0)))))))))))))))))) +(define Package-Idris-case--34490-17177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Package-Idris-runScript (let ((sc3 arg-0)) (let ((e-19 (vector-ref sc3 20))) e-19))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0))))))) +(define Package-Idris-case--34446-17142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc5 arg-0)) (let ((e-19 (vector-ref sc5 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0))))))) +(define Package-Idris-case--34410-17107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Directory-Core-mkdirs (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-16 (let ((act-16 (Directory-System-changeDir (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (let ((act-18 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc7 arg-0)) (let ((e-19 (vector-ref sc7 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " arg-9)) eta-0))))))) +(define Package-Idris-case--34363-17079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((installPrefix (Strings-Prelude-C-43C-43 (let ((sc1 (let ((sc2 (let ((sc3 arg-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir installPrefix eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 (let ((act-16 ((Directory-Core-mkdirs (vector 1 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((act-17 (let ((act-17 (Directory-System-changeDir (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)) (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 installPrefix (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 (let ((act-19 (Directory-System-changeDir e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc9 arg-0)) (let ((e-19 (vector-ref sc9 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Package-Idris-case--34182-16921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))) +(define Package-Idris-case--34137-16876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (Package-Idris-copyFile arg-8 arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased arg-1)))) eta-0))))))) +(define Package-Idris-case--34099-16812 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Binary-Utils-writeToFile arg-0 e-2 eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0)))))))) +(define Package-Idris-case--33929-16704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((mainn (vector 0 (vector 1 "Main" (vector 0 )) (vector 1 "main")))) (lambda (eta-0) (Package-Idris-compileMain arg-3 arg-2 arg-1 mainn e-6 arg-10 eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (FC-Core-emptyFC) "No main module given") eta-0))))))) +(define Package-Idris-case--33887-16652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Package-Idris-case--33929-16704 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 (let ((sc1 arg-0)) (let ((e-12 (vector-ref sc1 13))) e-12))))))))) +(define Package-Idris-case--33828-16617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (let ((_-0 (vector 0 ))) ((Package-Idris-case--33887-16652 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 (let ((sc1 arg-0)) (let ((e-13 (vector-ref sc1 14))) e-13))) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Package-Idris-runScript (let ((sc2 arg-0)) (let ((e-17 (vector-ref sc2 18))) e-17))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-9) eta-0))))))) +(define Package-Idris-case--33720-16474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((SetOptions-Idris-preOptions arg-3 arg-2 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 e-5) eta-0)))))))) +(define Package-Idris-case--33513-16394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-9 arg-10 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) +(define Package-Idris-case--32597-16242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (vector 1 (vector 0 arg-1 arg-0))))))))))))))))))))))))))) +(define Package-Idris-case--32597-16197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 (vector 0 arg-1 arg-0)) e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-16152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 arg-1 arg-0)) e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-16107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-1 arg-0)) e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-16062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 arg-1 arg-0)) e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-16017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (vector 1 (vector 0 arg-1 arg-0)) e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector 1 arg-0) e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (vector 1 (vector 0 arg-1 arg-0)) e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 arg-0) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-0 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15741 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15659 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-0) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-0) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-case--32597-15458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))) +(define Package-Idris-n--33513-16262-toSource (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Directory-Core-nsToSource arg-2 e-2 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 e-5)) eta-0)))))))))))) +(define Package-Idris-n--32194-14966-strField (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent arg-2)) (lambda () (lambda (_-15008) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15019) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-constant)) (lambda () (lambda (c) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Package-Idris-n--32194-14965-getStr arg-0 arg-1 (vector 0 arg-0 start end) arg-2 c)))))))))))))))) +(define Package-Idris-n--35622-18221-loadDependencies (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-2 eta-0 eta-1))) ext-0))) +(define Package-Idris-n--34825-17482-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-1) (These-Data-bifold 'erased arg-1 eta-1)) eta-0)) (Package-Idris-bitraverseC 'erased 'erased 'erased 'erased (arg-3 arg-5) (lambda (sm) ((Package-Idris-foldlC 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34825-17482-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-4 ksC-39) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 x) e-5)))) e-6)))) eta-0)))))))))))))))))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))) (StringMap-Data-toList 'erased sm))) arg-6) ext-0))) +(define Package-Idris-n--33513-16263-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Package-Idris-addField arg-2 arg-3 arg-4 e-2 arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Package-Idris-n--33513-16263-go arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0)))))))))))))) +(define Package-Idris-n--32194-14965-getStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Core-Parser-Text-pure 'erased 'erased ((arg-1 arg-2) e-0))))(else (Core-Parser-Text-fail 'erased 'erased 'erased (Strings-Prelude-C-43C-43 arg-3 " field must be a string"))))))) +(define Package-Idris-n--34942-17587-deleteFolder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Package-Idris-n--34942-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Name-Core-showSep (Options-Core-dirSep) arg-4))) ext-0))) +(define Package-Idris-n--34942-17588-deleteBin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((ttFile (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 (Name-Core-showSep (Options-Core-dirSep) arg-4) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-5)))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--34942-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 ttFile ".ttc") eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Package-Idris-n--34942-17586-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 ttFile ".ttm") eta-0))))))))) +(define Package-Idris-n--34942-17586-delete (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (File-System-fileRemove arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-3) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (define Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 ))) (define Package-Idris-__Impl_Semigroup_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (ext-0 ext-1) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 ext-0 ext-1))) (define Package-Idris-__Impl_Monoid_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) @@ -6991,7 +6991,7 @@ (define Package-Idris-rejectPackageOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((12) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "Package commands (--build, --install, --clean, --repl) must be the only option given" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))(else (Package-Idris-rejectPackageOpts e-2))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) (define Package-Idris-processPackageOpts (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((12) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-15 (Package-Idris-processPackage arg-0 arg-1 arg-2 e-3 e-4 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))(else (Package-Idris-rejectPackageOpts arg-3)))))))(else (Package-Idris-rejectPackageOpts arg-3)))))))(else (Package-Idris-rejectPackageOpts arg-3)))))) (define Package-Idris-processPackage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (Source-Parser-parseFile 'erased arg-4 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Idris-parsePkgDesc arg-4)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-17946) (Core-Parser-Text-pure 'erased 'erased desc)))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((act-16 (Package-Idris-addFields arg-0 e-9 (Package-Idris-initPkgDesc e-8) ext-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((act-17 (Package-Idris-build arg-0 arg-1 arg-2 e-6 ext-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))(else (let ((act-18 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0))))))))))) ((1) (let ((act-17 (Package-Idris-build arg-0 arg-1 arg-2 e-6 ext-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (Package-Idris-install arg-0 arg-2 e-6 ext-0))(else (let ((act-18 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0))))))))))) ((2) (Package-Idris-clean arg-0 arg-2 e-6 ext-0)) (else (Package-Idris-runRepl arg-0 arg-2 e-6 ext-0)))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc arg-4 e-6) e-6) ext-0)))))))))))) -(define Package-Idris-processOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Package-Idris-case--33682-16474 e-5 e-6 arg-1 arg-0 (CommandLine-Idris-getOpts (Strings-Data-words e-6)))))))))))) +(define Package-Idris-processOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Package-Idris-case--33720-16474 e-5 e-6 arg-1 arg-0 (CommandLine-Idris-getOpts (Strings-Data-words e-6)))))))))))) (define PkgDesc-Package-Idris-preinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18)))) (define PkgDesc-Package-Idris-preclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20)))) (define PkgDesc-Package-Idris-prebuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16)))) @@ -7007,17 +7007,17 @@ (define Package-Idris-install (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-16 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-18 (vector-ref sc1 19))) e-18))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((toInstall (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((act-17 (let ((act-17 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((installPrefix (Strings-Prelude-C-43C-43 (let ((sc4 (let ((sc5 (let ((sc6 e-5)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-0 (vector-ref sc5 1))) e-0)))) (let ((e-4 (vector-ref sc4 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))))) (let ((act-18 (let ((act-18 (Directory-System-changeDir installPrefix ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (let ((act-19 (let ((act-19 ((Directory-Core-mkdirs (vector 1 (let ((sc6 arg-2)) (let ((e-0 (vector-ref sc6 1))) e-0)) (vector 0 ))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((act-20 (let ((act-20 (Directory-System-changeDir (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (cond ((equal? sc9 0) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-installFrom arg-0 (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)) (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) build)) (Strings-Prelude-C-43C-43 installPrefix (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)))) eta-0)) toInstall) ext-0))) (let ((sc10 act-21)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-22 (let ((act-22 (Directory-System-changeDir e-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) ext-0)))) (let ((sc11 act-22)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else ((Package-Idris-runScript (let ((sc12 arg-2)) (let ((e-19 (vector-ref sc12 20))) e-19))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))) (define Package-Idris-initPkgDesc (lambda (arg-0) (vector 0 arg-0 "0" "Anonymous" (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 )))) (define Package-Idris-foldlC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-6) (((((e-2 'erased) 'erased) (lambda (ma) (lambda (b) (lambda (eta-0) (let ((act-15 (ma eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Prelude-flip 'erased 'erased 'erased arg-4 b e-5) eta-0)))))))))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0))) arg-6)))))) -(define Package-Idris-foldWithKeysC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-1 ext-0) (Package-Idris-n--34787-17482-go 'erased arg-2 'erased arg-4 arg-3 (vector 0 ) ext-1 ext-0))) -(define Package-Idris-findIpkg (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (Directory-Core-findIpkgFile ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((act-16 (let ((act-16 (Directory-System-changeDir e-7 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (let ((act-17 (Source-Parser-parseFile 'erased e-9 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Idris-parsePkgDesc e-9)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-18324) (Core-Parser-Text-pure 'erased 'erased desc)))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((sc7 e-2)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-18 (Package-Idris-addFields arg-0 e-12 (Package-Idris-initPkgDesc e-13) ext-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-19 (Context-Core-setSourceDir arg-0 (let ((sc9 e-14)) (let ((e-15 (vector-ref sc9 16))) e-15)) ext-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-20 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc10 e-14)) (let ((e-23 (vector-ref sc10 15))) e-23))) ext-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-21 ((Package-Idris-n--35584-18221-loadDependencies arg-2 arg-1 arg-0 (let ((sc11 e-14)) (let ((e-28 (vector-ref sc11 11))) e-28))) ext-0))) (let ((sc11 act-21)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((sc12 arg-2)) (case (vector-ref sc12 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((e-3 (vector-ref sc12 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased e-10 (vector 1 e-3 (vector 0 )))))) (let ((act-22 (REPLOpts-Idris-setSource arg-1 srcC-39 ext-0))) (let ((sc13 act-22)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) ext-0)))) (let ((sc14 act-23)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-24 (let ((act-24 (IORef-Data-writeIORef 'erased arg-1 (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) (let ((e-24 (vector-ref sc15 2))) (let ((e-22 (vector-ref sc15 4))) (let ((e-4 (vector-ref sc15 5))) (let ((e-21 (vector-ref sc15 6))) (let ((e-20 (vector-ref sc15 7))) (vector 0 e-0 e-24 (vector 1 srcC-39) e-22 e-4 e-21 e-20)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) ext-0)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) ext-0))))))))))))))))))))))))))))))))))))))))) (else (let ((e-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc e-9 e-12) e-12) ext-0)))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) ext-0))))))))))) -(define Package-Idris-field (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))) "version") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))) "authors") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 2 eta-0 eta-1))) "maintainers") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 3 eta-0 eta-1))) "license") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))) "brief") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1))) "readme") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 6 eta-0 eta-1))) "homepage") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "sourceloc") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "bugtracker") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "options") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "opts") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 14 eta-0 eta-1))) "sourcedir") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 15 eta-0 eta-1))) "prebuild") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 16 eta-0 eta-1))) "postbuild") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 17 eta-0 eta-1))) "preinstall") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 18 eta-0 eta-1))) "postinstall") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 19 eta-0 eta-1))) "preclean") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32156-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 20 eta-0 eta-1))) "postclean") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "depends")) (lambda () (lambda (_-15208) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15219) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName))) (lambda () (lambda (ds) (Core-Parser-Text-pure 'erased 'erased (vector 9 ds))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "modules")) (lambda () (lambda (_-15198) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15249) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) 1) (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nsIdent)) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) ns))))))))))) (lambda () (lambda (ms) (Core-Parser-Text-pure 'erased 'erased (vector 10 ms))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "main")) (lambda () (lambda (_-15188) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15317) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nsIdent)) (lambda () (lambda (m) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 11 (vector 0 arg-0 start end) m))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "executable")) (lambda () (lambda (_-15178) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15367) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (e) (Core-Parser-Text-pure 'erased 'erased (vector 12 e))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Package-Idris-foldWithKeysC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-1 ext-0) (Package-Idris-n--34825-17482-go 'erased arg-2 'erased arg-4 arg-3 (vector 0 ) ext-1 ext-0))) +(define Package-Idris-findIpkg (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (Directory-Core-findIpkgFile ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((act-16 (let ((act-16 (Directory-System-changeDir e-7 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (let ((act-17 (Source-Parser-parseFile 'erased e-9 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Idris-parsePkgDesc e-9)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-18324) (Core-Parser-Text-pure 'erased 'erased desc)))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((sc7 e-2)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-18 (Package-Idris-addFields arg-0 e-12 (Package-Idris-initPkgDesc e-13) ext-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-19 (Context-Core-setSourceDir arg-0 (let ((sc9 e-14)) (let ((e-15 (vector-ref sc9 16))) e-15)) ext-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-20 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc10 e-14)) (let ((e-23 (vector-ref sc10 15))) e-23))) ext-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-21 ((Package-Idris-n--35622-18221-loadDependencies arg-2 arg-1 arg-0 (let ((sc11 e-14)) (let ((e-28 (vector-ref sc11 11))) e-28))) ext-0))) (let ((sc11 act-21)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((sc12 arg-2)) (case (vector-ref sc12 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((e-3 (vector-ref sc12 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased e-10 (vector 1 e-3 (vector 0 )))))) (let ((act-22 (REPLOpts-Idris-setSource arg-1 srcC-39 ext-0))) (let ((sc13 act-22)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) ext-0)))) (let ((sc14 act-23)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-24 (let ((act-24 (IORef-Data-writeIORef 'erased arg-1 (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) (let ((e-24 (vector-ref sc15 2))) (let ((e-22 (vector-ref sc15 4))) (let ((e-4 (vector-ref sc15 5))) (let ((e-21 (vector-ref sc15 6))) (let ((e-20 (vector-ref sc15 7))) (vector 0 e-0 e-24 (vector 1 srcC-39) e-22 e-4 e-21 e-20)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) ext-0)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) ext-0))))))))))))))))))))))))))))))))))))))))) (else (let ((e-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (ProcessIdr-Idris-getParseErrorLoc e-9 e-12) e-12) ext-0)))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) ext-0))))))))))) +(define Package-Idris-field (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))) "version") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))) "authors") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 2 eta-0 eta-1))) "maintainers") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 3 eta-0 eta-1))) "license") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))) "brief") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1))) "readme") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 6 eta-0 eta-1))) "homepage") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "sourceloc") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "bugtracker") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "options") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "opts") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 14 eta-0 eta-1))) "sourcedir") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 15 eta-0 eta-1))) "prebuild") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 16 eta-0 eta-1))) "postbuild") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 17 eta-0 eta-1))) "preinstall") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 18 eta-0 eta-1))) "postinstall") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 19 eta-0 eta-1))) "preclean") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32194-14966-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 20 eta-0 eta-1))) "postclean") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "depends")) (lambda () (lambda (_-15208) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15219) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName))) (lambda () (lambda (ds) (Core-Parser-Text-pure 'erased 'erased (vector 9 ds))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "modules")) (lambda () (lambda (_-15198) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15249) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) 1) (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nsIdent)) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) ns))))))))))) (lambda () (lambda (ms) (Core-Parser-Text-pure 'erased 'erased (vector 10 ms))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "main")) (lambda () (lambda (_-15188) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15317) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nsIdent)) (lambda () (lambda (m) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.SourceToken" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 11 (vector 0 arg-0 start end) m))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "executable")) (lambda () (lambda (_-15178) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-15367) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (e) (Core-Parser-Text-pure 'erased 'erased (vector 12 e))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define PkgDesc-Package-Idris-executable (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13)))) (define PkgDesc-Package-Idris-depends (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10)))) (define Package-Idris-copyFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Binary-Utils-readFromFile arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Binary-Utils-writeToFile arg-1 e-2 ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) ext-0)))))))) (define Package-Idris-compileMain (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (REPL-Idris-loadMainFile arg-0 e-6 arg-1 e-5 arg-2 arg-4 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (REPL-Idris-compileExp arg-0 e-6 arg-1 e-5 arg-2 (vector 0 (REPLOpts-Idris-replFC) arg-3) arg-5 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))))))) -(define Package-Idris-clean (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((exec (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-3 (vector-ref sc1 4))) e-3)))) (let ((act-16 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-20 (vector-ref sc1 21))) e-20))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((pkgmods (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((toClean (List-Data-mapMaybe 'erased 'erased (lambda (ks) (let ((sc2 ks)) (case (vector-ref sc2 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-3 e-2)))))))) pkgmods))) (let ((act-17 (let ((act-17 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((builddir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 build (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "ttc")))))) (let ((execdir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) exec)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-3) (vector 1 v arg-3))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) toClean))) (let ((act-18 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-0) (lambda (eta-1) (Package-Idris-n--34904-17587-deleteFolder arg-2 arg-1 arg-0 builddir eta-0 eta-1))) (lambda (ks) (lambda (eta-0) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) eta-2)) (Core-Core-traverse 'erased 'erased (lambda (eta-2) (Package-Idris-n--34904-17588-deleteBin arg-2 arg-1 arg-0 builddir ks eta-2)) eta-0) eta-1)))) pkgTrie ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (Package-Idris-n--34904-17587-deleteFolder arg-2 arg-1 arg-0 builddir (vector 0 ) ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (e) (lambda (eta-0) (Package-Idris-n--34904-17586-delete arg-2 arg-1 arg-0 (Strings-Prelude-C-43C-43 execdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e)) eta-0)))) (let ((sc6 arg-2)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else ((Package-Idris-runScript (let ((sc7 arg-2)) (let ((e-21 (vector-ref sc7 22))) e-21))) ext-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))) -(define Package-Idris-build (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Package-Idris-addDeps arg-0 arg-3 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Package-Idris-processOptions arg-0 arg-2 (let ((sc2 arg-3)) (let ((e-14 (vector-ref sc2 15))) e-14))) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Package-Idris-runScript (let ((sc3 arg-3)) (let ((e-16 (vector-ref sc3 17))) e-16))) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((toBuild (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc4 arg-3)) (let ((e-11 (vector-ref sc4 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-snd 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc4 arg-3)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((sc4 arg-3)) (let ((e-12 (vector-ref sc4 13))) e-12))))) (let ((act-19 (ModTree-Idris-buildAll arg-0 arg-1 arg-2 toBuild ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((act-20 (let ((_-0 (vector 0 ))) ((Package-Idris-case--33849-16652 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 toBuild _-0 (let ((sc6 arg-3)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 ((Package-Idris-runScript (let ((sc7 arg-3)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-9) ext-0)))))))))))))))))))))))))))))))) +(define Package-Idris-clean (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((exec (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-3 (vector-ref sc1 4))) e-3)))) (let ((act-16 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-20 (vector-ref sc1 21))) e-20))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((pkgmods (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((toClean (List-Data-mapMaybe 'erased 'erased (lambda (ks) (let ((sc2 ks)) (case (vector-ref sc2 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-3 e-2)))))))) pkgmods))) (let ((act-17 (let ((act-17 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((builddir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 build (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "ttc")))))) (let ((execdir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) exec)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-3) (vector 1 v arg-3))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) toClean))) (let ((act-18 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-0) (lambda (eta-1) (Package-Idris-n--34942-17587-deleteFolder arg-2 arg-1 arg-0 builddir eta-0 eta-1))) (lambda (ks) (lambda (eta-0) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2851) (lambda (arg-2852) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2851 arg-2852))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) eta-2)) (Core-Core-traverse 'erased 'erased (lambda (eta-2) (Package-Idris-n--34942-17588-deleteBin arg-2 arg-1 arg-0 builddir ks eta-2)) eta-0) eta-1)))) pkgTrie ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (Package-Idris-n--34942-17587-deleteFolder arg-2 arg-1 arg-0 builddir (vector 0 ) ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (e) (lambda (eta-0) (Package-Idris-n--34942-17586-delete arg-2 arg-1 arg-0 (Strings-Prelude-C-43C-43 execdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e)) eta-0)))) (let ((sc6 arg-2)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else ((Package-Idris-runScript (let ((sc7 arg-2)) (let ((e-21 (vector-ref sc7 22))) e-21))) ext-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))) +(define Package-Idris-build (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Package-Idris-addDeps arg-0 arg-3 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Package-Idris-processOptions arg-0 arg-2 (let ((sc2 arg-3)) (let ((e-14 (vector-ref sc2 15))) e-14))) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Package-Idris-runScript (let ((sc3 arg-3)) (let ((e-16 (vector-ref sc3 17))) e-16))) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((toBuild (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc4 arg-3)) (let ((e-11 (vector-ref sc4 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-snd 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc4 arg-3)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((sc4 arg-3)) (let ((e-12 (vector-ref sc4 13))) e-12))))) (let ((act-19 (ModTree-Idris-buildAll arg-0 arg-1 arg-2 toBuild ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((act-20 (let ((_-0 (vector 0 ))) ((Package-Idris-case--33887-16652 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 toBuild _-0 (let ((sc6 arg-3)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 ((Package-Idris-runScript (let ((sc7 arg-3)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-9) ext-0)))))))))))))))))))))))))))))))) (define Package-Idris-bitraverseC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (lambda (eta-2) (vector 0 eta-2))) eta-1)) (arg-4 e-2) eta-0)))) ((1) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (lambda (eta-2) (vector 1 eta-2))) eta-1)) (arg-5 e-5) eta-0)))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 2 eta-3 eta-4)))) eta-2)) (arg-4 e-8) eta-1)) (arg-5 e-9) eta-0))))))))) -(define Package-Idris-addFields (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.ParsedMods" ) (vector 0 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.MainMod" ) (vector 0 ) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Package-Idris-n--33475-16263-go arg-2 arg-1 arg-0 e-5 e-6 arg-1 arg-2) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-setSourceDir arg-0 (let ((sc3 e-7)) (let ((e-15 (vector-ref sc3 16))) e-15)) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased e-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased e-6 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-n--33475-16262-toSource arg-2 arg-1 arg-0 eta-0)) e-9) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Package-Idris-n--33475-16262-toSource arg-2 arg-1 arg-0 eta-0)) e-10) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc8 e-7)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-29 (vector-ref sc8 6))) (let ((e-28 (vector-ref sc8 7))) (let ((e-27 (vector-ref sc8 8))) (let ((e-26 (vector-ref sc8 9))) (let ((e-25 (vector-ref sc8 10))) (let ((e-24 (vector-ref sc8 11))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (let ((e-21 (vector-ref sc8 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-25 e-24 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))) ext-0)))))))))))))))))))))))))))))))))))))))))) +(define Package-Idris-addFields (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.ParsedMods" ) (vector 0 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.MainMod" ) (vector 0 ) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Package-Idris-n--33513-16263-go arg-2 arg-1 arg-0 e-5 e-6 arg-1 arg-2) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-setSourceDir arg-0 (let ((sc3 e-7)) (let ((e-15 (vector-ref sc3 16))) e-15)) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased e-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased e-6 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-n--33513-16262-toSource arg-2 arg-1 arg-0 eta-0)) e-9) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Package-Idris-n--33513-16262-toSource arg-2 arg-1 arg-0 eta-0)) e-10) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc8 e-7)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-29 (vector-ref sc8 6))) (let ((e-28 (vector-ref sc8 7))) (let ((e-27 (vector-ref sc8 8))) (let ((e-26 (vector-ref sc8 9))) (let ((e-25 (vector-ref sc8 10))) (let ((e-24 (vector-ref sc8 11))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (let ((e-21 (vector-ref sc8 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-25 e-24 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))) ext-0)))))))))))))))))))))))))))))))))))))))))) (define Package-Idris-addField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-23 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-23 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-3 e-22 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((2) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-23 (vector-ref sc1 5))) (let ((e-22 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 (vector 1 e-5) e-23 e-22 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (let ((e-23 (vector-ref sc1 7))) (let ((e-22 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 e-7) e-5 e-23 e-22 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((4) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-23 (vector-ref sc1 9))) (let ((e-22 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 e-9) e-6 e-7 e-23 e-22 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((5) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-23 (vector-ref sc1 11))) (let ((e-22 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 e-11) e-7 e-8 e-9 e-23 e-22 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((6) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-23 (vector-ref sc1 13))) (let ((e-22 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 e-13) e-8 e-9 e-10 e-11 e-23 e-22 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((7) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-23 (vector-ref sc1 15))) (let ((e-22 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 e-15) e-9 e-10 e-11 e-12 e-13 e-23 e-22 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((8) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-23 (vector-ref sc1 17))) (let ((e-22 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 e-17) e-10 e-11 e-12 e-13 e-14 e-15 e-23 e-22 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((9) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-22 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-18 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-22 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((10) (let ((e-19 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-1 e-19 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))) ((11) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-2 (vector 1 (vector 0 e-20 e-21)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0))))))))) ((12) (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-22) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((13) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (vector 1 (vector 0 e-23 e-24)) e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((14) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector 1 e-26) e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((15) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (vector 1 (vector 0 e-27 e-28)) e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((16) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 e-29 e-30)) e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((17) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 e-31 e-32)) e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((18) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 e-33 e-34)) e-20 e-21)))))))))))))))))))))))) eta-0))))) ((19) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 (vector 0 e-35 e-36)) e-21)))))))))))))))))))))))) eta-0))))) (else (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (vector 1 (vector 0 e-37 e-38)))))))))))))))))))))))))) eta-0))))))))) (define Package-Idris-addDeps (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-0 eta-0 eta-1))) (let ((sc1 arg-1)) (let ((e-10 (vector-ref sc1 11))) e-10))) ext-0))))))) (define These-Data-these (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (arg-3 e-2))) ((1) (let ((e-5 (vector-ref sc0 1))) (arg-4 e-5))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) ((arg-5 e-8) e-9)))))))) @@ -7027,30 +7027,30 @@ (define StringTrie-Data-singleton (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-singleton 'erased e-3 arg-2)))))))))) (define StringTrie-Data-insertWith (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (These-Data-these 'erased 'erased 'erased (lambda (eta-0) (vector 0 (arg-2 (vector 1 eta-0)))) (lambda (eta-0) (vector 2 (arg-2 (vector 0 )) eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 2 (arg-2 (vector 1 eta-0)) eta-1))) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (These-Data-these 'erased 'erased 'erased (lambda (x) (vector 2 x (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-n--1600-3167-end 'erased e-2 e-3 arg-3 arg-2)))) (lambda (eta-0) (vector 1 (StringTrie-Data-n--1600-3168-rec 'erased e-2 e-3 arg-3 arg-2 eta-0))) (lambda (x) (lambda (eta-0) (vector 2 x (StringTrie-Data-n--1600-3168-rec 'erased e-2 e-3 arg-3 arg-2 eta-0)))) arg-3)))))))) (define StringTrie-Data-empty (lambda (arg-0) (vector 1 (StringMap-Data-empty 'erased)))) -(define REPL-IDEMode-Idris-case--31905-2556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) e-3 (Commands-IDEMode-Idris-version 2 0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))) -(define REPL-IDEMode-Idris-case--31716-2447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-n--31553-2251-updateOutput arg-0 arg-1 arg-2 arg-3 arg-4 e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (REPL-IDEMode-Idris-processCatch arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 ((REPL-IDEMode-Idris-handleIDEResult arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-6 e-8) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Unrecognised command: " (Commands-IDEMode-Idris-show_Show__SExp arg-11))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))))))))))) -(define REPL-IDEMode-Idris-case--31659-2378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Parse error: " (Support-Parser-show_Show__ParseError e-2))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-IDEMode-Idris-case--31716-2447 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Commands-IDEMode-Idris-getMsg e-5)))))))) -(define REPL-IDEMode-Idris-case--31617-2331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((end 1)) (REPL-IDEMode-Idris-case--31659-2378 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 end (Parser-IDEMode-Idris-parseSExp arg-9)))))))) -(define REPL-IDEMode-Idris-case--31553-2297 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (REPL-IDEMode-Idris-getInput e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (File-System-fEOF e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--31659-2378 arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-2 e-1 res e-5 end (Parser-IDEMode-Idris-parseSExp e-5)) eta-0))))))))))))))))))))))))) -(define REPL-IDEMode-Idris-case--31564-2259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) eta-0)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) -(define REPL-IDEMode-Idris-case--31366-2140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 (vector 1 "") (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 1 e-2) (vector 0 ))))))))) -(define REPL-IDEMode-Idris-case--31365-2092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Nat eta-0)) (vector 1 e-2 (vector 1 e-6 (vector 1 e-7 (vector 0 )))))))))))))) -(define REPL-IDEMode-Idris-case--31177-2024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3)))))))) -(define REPL-IDEMode-Idris-case--30513-1291 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-getFLine arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (Strings-Prelude-C-43C-43 (Prelude-pack arg-1) act-15) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-getNChars arg-0 (Prelude-cast_Cast__Int_Integer e-2)) eta-0))) (Prelude-pure_Applicative__IO 'erased (Prelude-pack act-15) eta-0))))))))) -(define REPL-IDEMode-Idris-case--30445-1220 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased e-2 eta-0)))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Failed to read a line" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))) -(define REPL-IDEMode-Idris-case--30384-1179 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased e-2 eta-0)))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))) -(define REPL-IDEMode-Idris-case--30375-1152 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Alas the file is done, aborting" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (else (lambda (eta-0) (let ((act-15 (File-System-fGetChar arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased e-2 eta-0))) (else (let ((act-16 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))))))) -(define REPL-IDEMode-Idris-case--30256-1093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (REPL-IDEMode-Idris-socketToFile e-8))))))))) -(define REPL-IDEMode-Idris-case--30206-1038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to listen on socket with error: " (Prelude-show_Show__Int arg-5))) eta-0))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Prelude-show_Show__Int arg-0) eta-0))) (let ((act-16 (Socket-Network-accept arg-2 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) ((REPL-IDEMode-Idris-socketToFile e-8) eta-0))))))))))))))) -(define REPL-IDEMode-Idris-case--30153-992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to bind socket with error: " (Prelude-show_Show__Int arg-4))) eta-0))) (else (lambda (eta-0) (let ((act-15 (Socket-Network-listen arg-2 eta-0))) ((REPL-IDEMode-Idris-case--30206-1038 arg-0 arg-1 arg-2 arg-3 arg-4 act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) eta-0)))))))) -(define REPL-IDEMode-Idris-case--30137-941 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) eta-0))) (let ((act-16 (PrimIO-putStrLn "Failed to open socket" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-1)) arg-0 eta-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--30153-992 arg-0 arg-1 e-5 osock act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) eta-0)))))))))) -(define REPL-IDEMode-Idris-case--30072-891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 "Failed to fdopen socket file descriptor") eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-4) eta-0))))))) -(define REPL-IDEMode-Idris-n--31177-2088-versionSExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (vector 1 (REPL-IDEMode-Idris-n--31177-2086-semverSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (REPL-IDEMode-Idris-n--31177-2087-tagSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 )))))) -(define REPL-IDEMode-Idris-n--31553-2251-updateOutput (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (REPLOpts-Idris-getOutput arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) ext-0))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) -(define REPL-IDEMode-Idris-n--31177-2087-tagSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--31366-2140 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) -(define REPL-IDEMode-Idris-n--31177-2086-semverSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--31365-2092 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))) -(define REPL-IDEMode-Idris-n--31177-2075-optionsSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt eta-0)) arg-0)))) -(define REPL-IDEMode-Idris-n--31177-2060-holesSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-sexpName eta-0)) arg-0)))) +(define REPL-IDEMode-Idris-case--31943-2556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) e-3 (Commands-IDEMode-Idris-version 2 0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))) +(define REPL-IDEMode-Idris-case--31754-2447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-n--31591-2251-updateOutput arg-0 arg-1 arg-2 arg-3 arg-4 e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (REPL-IDEMode-Idris-processCatch arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 ((REPL-IDEMode-Idris-handleIDEResult arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-6 e-8) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Unrecognised command: " (Commands-IDEMode-Idris-show_Show__SExp arg-11))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))))))))))) +(define REPL-IDEMode-Idris-case--31697-2378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Parse error: " (Support-Parser-show_Show__ParseError e-2))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-IDEMode-Idris-case--31754-2447 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Commands-IDEMode-Idris-getMsg e-5)))))))) +(define REPL-IDEMode-Idris-case--31655-2331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((end 1)) (REPL-IDEMode-Idris-case--31697-2378 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 end (Parser-IDEMode-Idris-parseSExp arg-9)))))))) +(define REPL-IDEMode-Idris-case--31591-2297 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (REPL-IDEMode-Idris-getInput e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (File-System-fEOF e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--31697-2378 arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-2 e-1 res e-5 end (Parser-IDEMode-Idris-parseSExp e-5)) eta-0))))))))))))))))))))))))) +(define REPL-IDEMode-Idris-case--31602-2259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) eta-0)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define REPL-IDEMode-Idris-case--31404-2140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 (vector 1 "") (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 1 e-2) (vector 0 ))))))))) +(define REPL-IDEMode-Idris-case--31403-2092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Nat eta-0)) (vector 1 e-2 (vector 1 e-6 (vector 1 e-7 (vector 0 )))))))))))))) +(define REPL-IDEMode-Idris-case--31215-2024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3)))))))) +(define REPL-IDEMode-Idris-case--30551-1291 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-getFLine arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (Strings-Prelude-C-43C-43 (Prelude-pack arg-1) act-15) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-getNChars arg-0 (Prelude-cast_Cast__Int_Integer e-2)) eta-0))) (Prelude-pure_Applicative__IO 'erased (Prelude-pack act-15) eta-0))))))))) +(define REPL-IDEMode-Idris-case--30483-1220 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased e-2 eta-0)))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Failed to read a line" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))) +(define REPL-IDEMode-Idris-case--30422-1179 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased e-2 eta-0)))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))) +(define REPL-IDEMode-Idris-case--30413-1152 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Alas the file is done, aborting" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (else (lambda (eta-0) (let ((act-15 (File-System-fGetChar arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased e-2 eta-0))) (else (let ((act-16 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))))))))) +(define REPL-IDEMode-Idris-case--30294-1093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (REPL-IDEMode-Idris-socketToFile e-8))))))))) +(define REPL-IDEMode-Idris-case--30244-1038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to listen on socket with error: " (Prelude-show_Show__Int arg-5))) eta-0))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Prelude-show_Show__Int arg-0) eta-0))) (let ((act-16 (Socket-Network-accept arg-2 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) ((REPL-IDEMode-Idris-socketToFile e-8) eta-0))))))))))))))) +(define REPL-IDEMode-Idris-case--30191-992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to bind socket with error: " (Prelude-show_Show__Int arg-4))) eta-0))) (else (lambda (eta-0) (let ((act-15 (Socket-Network-listen arg-2 eta-0))) ((REPL-IDEMode-Idris-case--30244-1038 arg-0 arg-1 arg-2 arg-3 arg-4 act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) eta-0)))))))) +(define REPL-IDEMode-Idris-case--30175-941 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) eta-0))) (let ((act-16 (PrimIO-putStrLn "Failed to open socket" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-1)) arg-0 eta-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--30191-992 arg-0 arg-1 e-5 osock act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) eta-0)))))))))) +(define REPL-IDEMode-Idris-case--30110-891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 "Failed to fdopen socket file descriptor") eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-4) eta-0))))))) +(define REPL-IDEMode-Idris-n--31215-2088-versionSExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (vector 1 (REPL-IDEMode-Idris-n--31215-2086-semverSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (REPL-IDEMode-Idris-n--31215-2087-tagSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 )))))) +(define REPL-IDEMode-Idris-n--31591-2251-updateOutput (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (REPLOpts-Idris-getOutput arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) ext-0))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) +(define REPL-IDEMode-Idris-n--31215-2087-tagSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--31404-2140 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) +(define REPL-IDEMode-Idris-n--31215-2086-semverSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--31403-2092 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))) +(define REPL-IDEMode-Idris-n--31215-2075-optionsSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt eta-0)) arg-0)))) +(define REPL-IDEMode-Idris-n--31215-2060-holesSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-sexpName eta-0)) arg-0)))) (define REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-implicits") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-0) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-namespace") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-types") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-2) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "eval") (vector 1 (REPL-IDEMode-Idris-toSExp_SExpable__REPLEval e-3) (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "editor") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-4) (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "cg") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-5) (vector 0 )))))))))) (define REPL-IDEMode-Idris-toSExp_SExpable__REPLEval (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 "typecheck")) ((1) (vector 4 "normalise")) (else (vector 4 "execute")))))) (define REPL-IDEMode-Idris-todoCmd (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-iputStrLn arg-0 (Strings-Prelude-C-43C-43 arg-1 ": command not yet implemented. Hopefully soon!") ext-0))) @@ -7064,15 +7064,15 @@ (define REPL-IDEMode-Idris-printIDEResultWithHighlight (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2) (vector 1 (vector 0 (vector 0 )) (vector 0 )))))))) (define REPL-IDEMode-Idris-printIDEResult (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2) (vector 0 ))))))) (define REPL-IDEMode-Idris-printIDEError (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "error") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-2) (vector 0 ))))))) -(define REPL-IDEMode-Idris-loop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (REPLOpts-Idris-getOutput arg-4 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (REPLCommon-Idris-printError arg-4 "Running idemode but output isn't" ext-0)) (else (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((act-16 (let ((act-16 (REPL-IDEMode-Idris-getInput e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (File-System-fEOF e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--31659-2378 arg-4 arg-3 arg-2 arg-1 arg-0 e-3 e-2 e-1 res e-6 end (Parser-IDEMode-Idris-parseSExp e-6)) ext-0))))))))))))))))))))))))))))) -(define REPL-IDEMode-Idris-initIDESocketFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Socket-Network-socket (vector 2 ) (vector 1 ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) ext-0))) (let ((act-17 (PrimIO-putStrLn "Failed to open socket" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-0)) arg-1 ext-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--30153-992 arg-1 arg-0 e-5 osock act-16 (Prelude-C-47C-61_Eq__Int act-16 (Prelude-fromInteger_Num__Int 0))) ext-0)))))))))) +(define REPL-IDEMode-Idris-loop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (REPLOpts-Idris-getOutput arg-4 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (REPLCommon-Idris-printError arg-4 "Running idemode but output isn't" ext-0)) (else (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((act-16 (let ((act-16 (REPL-IDEMode-Idris-getInput e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (File-System-fEOF e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--31697-2378 arg-4 arg-3 arg-2 arg-1 arg-0 e-3 e-2 e-1 res e-6 end (Parser-IDEMode-Idris-parseSExp e-6)) ext-0))))))))))))))))))))))))))))) +(define REPL-IDEMode-Idris-initIDESocketFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Socket-Network-socket (vector 2 ) (vector 1 ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) ext-0))) (let ((act-17 (PrimIO-putStrLn "Failed to open socket" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-0)) arg-1 ext-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--30191-992 arg-1 arg-0 e-5 osock act-16 (Prelude-C-47C-61_Eq__Int act-16 (Prelude-fromInteger_Num__Int 0))) ext-0)))))))))) (define REPL-IDEMode-Idris-idePutStrLn (lambda (arg-0 arg-1 arg-2) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-0 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-2) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-1) (vector 0 )))))))) (define REPL-IDEMode-Idris-handleIDEResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((21) (REPL-IDEMode-Idris-idePutStrLn arg-5 arg-6 "Bye for now!"))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7)))))) (define REPL-IDEMode-Idris-getNChars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-getChar arg-0 eta-0))) (let ((act-16 ((REPL-IDEMode-Idris-getNChars arg-0 e-0) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15 act-16) eta-0)))))))))) -(define REPL-IDEMode-Idris-getInput (lambda (arg-0 ext-0) (let ((act-15 ((REPL-IDEMode-Idris-getNChars arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) ext-0))) ((REPL-IDEMode-Idris-case--30513-1291 arg-0 act-15 (Hex-Utils-fromHexChars (List-Data-reverse 'erased act-15))) ext-0)))) +(define REPL-IDEMode-Idris-getInput (lambda (arg-0 ext-0) (let ((act-15 ((REPL-IDEMode-Idris-getNChars arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) ext-0))) ((REPL-IDEMode-Idris-case--30551-1291 arg-0 act-15 (Hex-Utils-fromHexChars (List-Data-reverse 'erased act-15))) ext-0)))) (define REPL-IDEMode-Idris-getFLine (lambda (arg-0 ext-0) (let ((act-15 (File-System-fGetLine arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased e-2 ext-0))) (else (let ((act-16 (PrimIO-putStrLn "Failed to read a line" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0)))))))) (define REPL-IDEMode-Idris-getChar (lambda (arg-0 ext-0) (let ((act-15 (File-System-fEOF arg-0 ext-0))) (let ((sc0 act-15)) (cond ((equal? sc0 0) (let ((act-16 (PrimIO-putStrLn "Alas the file is done, aborting" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))) (else (let ((act-16 (File-System-fGetChar arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased e-2 ext-0))) (else (let ((act-17 (PrimIO-putStrLn "Failed to read a character" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0)))))))))))) -(define REPL-IDEMode-Idris-displayIDEResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-4))) ((3) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (REPL-Idris-displayHelp)))) ((4) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-5)))) ((1) (let ((e-27 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-27)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((5) (let ((e-7 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" e-7))))) ((6) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-9)))))))) ((7) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 )))) ((8) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))))))) ((9) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error(s) building file " (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-show_Show__Error eta-0)) e-14))))))))) ((10) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "No file can be reloaded")) ((11) (let ((e-15 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-15 "'")))))) ((12) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "Compilation failed")) ((13) (let ((e-16 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-16 " written")))))) ((14) (let ((e-17 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-17))))) ((15) (let ((e-18 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-handleMissing eta-0)) e-18)))))) ((16) (let ((e-19 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-19)))))) ((17) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 ))))(else (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31177-2060-holesSexp e-20 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0))))))) ((19) (let ((e-21 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-21)))))) ((18) (let ((e-22 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31177-2075-optionsSexp e-22 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((20) (let ((e-23 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31177-2088-versionSExp e-23 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((22) (let ((e-24 (vector-ref sc1 1))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((0) (let ((e-29 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" e-29))))) ((1) (let ((e-30 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-30))) ((2) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-31 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-33) "\xa;")))) e-34))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Name eta-0)) e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-3))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) +(define REPL-IDEMode-Idris-displayIDEResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-4))) ((3) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (REPL-Idris-displayHelp)))) ((4) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-5)))) ((1) (let ((e-27 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-27)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((5) (let ((e-7 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" e-7))))) ((6) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-9)))))))) ((7) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 )))) ((8) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))))))) ((9) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error(s) building file " (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-show_Show__Error eta-0)) e-14))))))))) ((10) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "No file can be reloaded")) ((11) (let ((e-15 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-15 "'")))))) ((12) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "Compilation failed")) ((13) (let ((e-16 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-16 " written")))))) ((14) (let ((e-17 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-17))))) ((15) (let ((e-18 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-handleMissing eta-0)) e-18)))))) ((16) (let ((e-19 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-19)))))) ((17) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 ))))(else (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31215-2060-holesSexp e-20 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0))))))) ((19) (let ((e-21 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-21)))))) ((18) (let ((e-22 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31215-2075-optionsSexp e-22 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((20) (let ((e-23 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31215-2088-versionSExp e-23 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((22) (let ((e-24 (vector-ref sc1 1))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((0) (let ((e-29 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" e-29))))) ((1) (let ((e-30 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-30))) ((2) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-31 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-33) "\xa;")))) e-34))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Name eta-0)) e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-3))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) (define Data-Socket-Network-case--2259-1818 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-1 e-4 e-7 e-10)))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))) (define Data-Socket-Network-n--2259-1794-toIntC-39 (lambda (arg-0 ext-0) (Prelude-cast_Cast__String_Integer ext-0))) (define Data-Socket-Network-n--2259-1795-toInt (lambda (arg-0 arg-1) (Prelude-fromInteger_Num__Int (Data-Socket-Network-n--2259-1794-toIntC-39 arg-0 arg-1)))) @@ -7101,18 +7101,18 @@ (define Raw-Socket-Network-case--2164-468 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-15 (FFI-Network-idrnet_sockaddr_ipv4 arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (Data-Socket-Network-parseIPv4 act-15) eta-0)))) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 ) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 3 ) eta-0))))))))) (define Raw-Socket-Network-sockaddr_free (lambda (arg-0 ext-0) (FFI-Network-idrnet_free arg-0 ext-0))) (define Raw-Socket-Network-getSockAddr (lambda (arg-0 ext-0) (let ((act-15 (FFI-Network-idrnet_sockaddr_family arg-0 ext-0))) ((Raw-Socket-Network-case--2164-468 arg-0 act-15 (Data-Socket-Network-getSocketFamily act-15)) ext-0)))) -(define SyntaxHighlight-IDEMode-Idris-case--30530-12805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) ext-0))) -(define SyntaxHighlight-IDEMode-Idris-case--30297-12598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 ))))))) -(define SyntaxHighlight-IDEMode-Idris-case--30210-12493 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "output") (vector 1 arg-0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 ))))))))))))) -(define SyntaxHighlight-IDEMode-Idris-n--30266-12533-hlt (lambda (arg-0 arg-1) (vector 1 arg-0 (vector 0 )))) +(define SyntaxHighlight-IDEMode-Idris-case--30568-12805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) ext-0))) +(define SyntaxHighlight-IDEMode-Idris-case--30335-12598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 ))))))) +(define SyntaxHighlight-IDEMode-Idris-case--30248-12493 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "output") (vector 1 arg-0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 ))))))))))))) +(define SyntaxHighlight-IDEMode-Idris-n--30304-12533-hlt (lambda (arg-0 arg-1) (vector 1 arg-0 (vector 0 )))) (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 (vector 1 (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__FC e-0) (vector 1 (vector 0 (vector 1 (vector 0 (vector 1 (vector 4 "name") (vector 1 (vector 1 (Name-Core-show_Show__Name e-1)) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "namespace") (vector 1 (vector 1 e-7) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "decor") (vector 1 (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Decoration e-4) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "implicit") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-2) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "key") (vector 1 (vector 1 e-3) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "doc-overview") (vector 1 (vector 1 e-5) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "type") (vector 1 (vector 1 e-6) (vector 0 )))) (vector 0 ))))))))) (vector 0 ))))))))))))))) (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__FC (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (vector 0 (vector 1 (vector 0 (vector 1 (vector 4 "filename") (vector 1 (vector 1 e-0) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "start") (vector 1 (vector 3 (Prelude-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-5) (Prelude-fromInteger_Num__Integer 1))) (vector 1 (vector 3 (Prelude-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-6) (Prelude-fromInteger_Num__Integer 1))) (vector 0 ))))) (vector 1 (vector 0 (vector 1 (vector 4 "end") (vector 1 (vector 3 (Prelude-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-9) (Prelude-fromInteger_Num__Integer 1))) (vector 1 (vector 3 (Prelude-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-10) (Prelude-fromInteger_Num__Integer 1))) (vector 0 ))))) (vector 0 ))))))))))))))) (else (vector 0 (vector 0 ))))))) (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Decoration (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 "type")) ((1) (vector 4 "function")) ((2) (vector 4 "data")) ((3) (vector 4 "keyword")) (else (vector 4 "bound")))))) (define SyntaxHighlight-IDEMode-Idris-__Impl_SExpable_Highlight (lambda (ext-0) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight ext-0))) -(define SyntaxHighlight-IDEMode-Idris-printOutput (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((SyntaxHighlight-IDEMode-Idris-case--30210-12493 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0)))))))) +(define SyntaxHighlight-IDEMode-Idris-printOutput (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((SyntaxHighlight-IDEMode-Idris-case--30248-12493 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0)))))))) (define SyntaxHighlight-IDEMode-Idris-outputSyntaxHighlighting (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-1) (List-Data-filter 'erased (lambda (eta-2) (SyntaxHighlight-IDEMode-Idris-inFile arg-2 eta-2)) (let ((sc0 eta-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) eta-0)) (lambda (eta-0) (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (SyntaxHighlight-IDEMode-Idris-outputNameSyntax arg-1 eta-0)) e-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) ext-0)))))))))))) (define SyntaxHighlight-IDEMode-Idris-outputNameSyntax (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((dec (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 ))))))) (let ((hilite (Prelude-map_Functor__Maybe 'erased 'erased (lambda (d) (vector 0 e-2 e-6 1 "" d "" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-11) "")) dec))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (SyntaxHighlight-IDEMode-Idris-outputHighlight arg-0 eta-0 eta-1)))) hilite))))))))))))) -(define SyntaxHighlight-IDEMode-Idris-outputHighlight (lambda (arg-0 arg-1 ext-0) (SyntaxHighlight-IDEMode-Idris-printOutput arg-0 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (vector 0 (vector 1 (vector 4 "highlight-source") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased (lambda (arg-16297) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight arg-16297)) (SyntaxHighlight-IDEMode-Idris-n--30266-12533-hlt arg-1 arg-0)) (vector 0 )))) (vector 0 )))) ext-0))) +(define SyntaxHighlight-IDEMode-Idris-outputHighlight (lambda (arg-0 arg-1 ext-0) (SyntaxHighlight-IDEMode-Idris-printOutput arg-0 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (vector 0 (vector 1 (vector 4 "highlight-source") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased (lambda (arg-16297) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight arg-16297)) (SyntaxHighlight-IDEMode-Idris-n--30304-12533-hlt arg-1 arg-0)) (vector 0 )))) (vector 0 )))) ext-0))) (define SyntaxHighlight-IDEMode-Idris-inFile (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-4 arg-0))) (else 1))))))) (define Parser-IDEMode-Idris-case--13208-15366 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Parser-IDEMode-Idris-n--13208-15342-notComment arg-0 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 (vector 14 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3))))))))) (define Parser-IDEMode-Idris-case--13210-15347 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) 1)(else 0))))) @@ -7124,5 +7124,4 @@ (define Parser-IDEMode-Idris-ideTokens (lambda () (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Lexer-Text-exact x) (lambda (eta-0) (vector 6 eta-0)))) (Parser-IDEMode-Idris-symbols)) (vector 1 (vector 0 (Lexer-Text-digits) (lambda (x) (vector 2 (Prelude-cast_Cast__String_Integer x)))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (x) (vector 3 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Source-Lexer-Parser-identAllowDashes) (lambda (x) (vector 0 (vector 1 x (vector 0 ))))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 0 )))))))) (define Parser-IDEMode-Idris-ideParser (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Parser-IDEMode-Idris-idelex arg-2)) (lambda (toks) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (Support-Parser-mapParseError eta-0)) (Core-Parser-Text-parse 'erased 'erased arg-1 arg-3 toks)) (lambda (parsed) (vector 1 (Builtin-fst 'erased 'erased parsed)))))))) (load-shared-object "libidris2_support.so") -(load-shared-object "libidris2_support.so") (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (Main-main eta-0))))