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.LengthMatch.erl
Raw

src/Idris.Idris2.Data.LengthMatch.erl 

-module('Idris.Idris2.Data.LengthMatch').

-compile('no_auto_import').

-compile('inline').

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

-export([

  'un--checkLengthMatch'/4

]).

'un--checkLengthMatch'(V0, V1, V2, V3) -> case V2 of [] -> case V3 of [] -> {'Idris.Prelude.Types.Just', {'Idris.Data.LengthMatch.NilMatch'}}; [E0 | E1] -> (fun (V4, V5) -> {'Idris.Prelude.Types.Nothing'} end(E0, E1)); _ -> ('erlang':'throw'("Error: Unreachable branch")) end; [E2 | E3] -> (fun (V6, V7) -> case V3 of [] -> {'Idris.Prelude.Types.Nothing'}; [E4 | E5] -> (fun (V8, V9) -> ('Idris.Idris2.Prelude.Types':'dn--un-->>=_Monad__Maybe'('erased', 'erased', ('un--checkLengthMatch'('erased', 'erased', V7, V9)), fun (V10) -> {'Idris.Prelude.Types.Just', {'Idris.Data.LengthMatch.ConsMatch', V10}} end)) end(E4, E5)); _ -> ('erlang':'throw'("Error: Unreachable branch")) end end(E2, E3)); _ -> ('erlang':'throw'("Error: Unreachable branch")) end.