liquidhaskell-0.8.10.1: tests/errors/LocalHole.hs

{-@ LIQUID "--no-termination" @-}

module LocalHole where

mysum xs = go 0 0
  where
    n = length xs
    {-@ go :: i:{Nat | i <= nowhere} -> _ -> _ @-}
    go i acc
      | i >= n    = acc
      | otherwise = go (i+1) (acc + xs !! i)