mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-11-28 05:32:03 +03:00
e95c5f7571
Checking the let expression in full can break sharing when unifying the types, and it's unnecessary because we've already checked the type of the scope unifies with the expected type. Fixes #63
36 lines
695 B
Idris
36 lines
695 B
Idris
import Data.Vect
|
|
|
|
test : Vect 2 () -> IO ()
|
|
test b =
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
let i = index 1 b in
|
|
pure ()
|
|
|
|
main : IO ()
|
|
main = do
|
|
pure ()
|