Idris2-boot/tests/idris2/basic004/Wheres.idr

module Wheres

import Stuff

reverse : List a -> List a
reverse xs = rev' Nil xs
  where
    rev' : List a -> List a -> List a
    rev' acc Nil = acc
    rev' acc (x :: xs) = rev' (x :: acc) xs

foo : Int -> Int
foo x = case isLT of
            Yes => prim__mul_Int x 2
            No => prim__mul_Int x 4
  where
    data MyLT = Yes | No

    isLT : MyLT
    isLT = ifThenElse (intToBool (prim__lt_Int x 20)) Yes No
Set fresh name counter on loading Main ttc Make sure this is the counter from the right namespace, or we might get name clashes at the REPL 2019-06-27 15:42:49 +03:00			`module Wheres`

			`import Stuff`

			`reverse : List a -> List a`
Remove trailing whitespace from Idris sources. This is the result of running the command: $ find . -name '*.idr' -type f -exec sed -i -E 's/\s+$//' {} + I confirmed before running it that this would not affect any markdown formatting in documentation comments. 2019-10-26 00:24:25 +03:00			`reverse xs = rev' Nil xs`
Set fresh name counter on loading Main ttc Make sure this is the counter from the right namespace, or we might get name clashes at the REPL 2019-06-27 15:42:49 +03:00			`where`
			`rev' : List a -> List a -> List a`
			`rev' acc Nil = acc`
			`rev' acc (x :: xs) = rev' (x :: acc) xs`

			`foo : Int -> Int`
			`foo x = case isLT of`
			`Yes => prim__mul_Int x 2`
			`No => prim__mul_Int x 4`
			`where`
			`data MyLT = Yes \| No`

			`isLT : MyLT`
			`isLT = ifThenElse (intToBool (prim__lt_Int x 20)) Yes No`