Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

11 lines (7 sloc) 0.206 kB
module Tests.Elem where
{-# NOINLINE str1 #-}
str1 = "Tomten klappar händerna."
{-# NOINLINE str2 #-}
str2 = "5001 apor"
runTest :: IO (Bool, Bool)
runTest = return (elem '.' str1, not $ elem '.' str2)
Jump to Line
Something went wrong with that request. Please try again.