liquidhaskell-0.7.0.0: tests/error_messages/pos/TerminationExpr.hs

module TerminationExpr where

{-@ showSep :: _ -> xs:_ -> _ / [len xs] @-} -- use xs as reducing param
showSep :: String -> [String] -> String
showSep sep []     = ""
showSep sep [x]    = x
showSep sep (x:xs) = x ++ sep ++ showSep sep xs