Packages

idris2

0.2.1-alpha.1
0.2.1-alpha.1

Erlang code generator for Idris 2

Current section

Files

Jump to
Readme
1 Version
0 Dependencies
Dependants
Files
Activity
idris2 src Idris.Idris2.Data.List.Extra.erl
Raw

src/Idris.Idris2.Data.List.Extra.erl 

-module('Idris.Idris2.Data.List.Extra').

-compile('no_auto_import').

-compile('inline').

-compile({'inline_size',24}).

-export([

  'un--elemAt'/3

]).

'un--elemAt'(V0, V1, V2) -> case V1 of [] -> {'Idris.Prelude.Types.Nothing'}; [E0 | E1] -> (fun (V3, V4) -> case V2 of 0 -> {'Idris.Prelude.Types.Just', V3}; _ -> begin (V5 = (V2 - 1)), ('un--elemAt'('erased', V4, V5)) end end end(E0, E1)); _ -> ('erlang':'throw'("Error: Unreachable branch")) end.