<div style='font-family:Arial; font-size:13px;'>Hi,<div><br></div><div><div style="color: rgb(212, 212, 212); background-color: rgb(30, 30, 30); font-family: Consolas, "Courier New", monospace; font-size: 14px; line-height: 19px; white-space: pre;"><div><span style="color: #569cd6;">module</span> <span style="color: #4ec9b0;">Main</span> <span style="color: #569cd6;">where</span></div><br><div><span style="color: #dcdcaa;">allwords</span> :: <span style="color: #569cd6;">IO</span> <span style="color: #569cd6;">Int</span></div><div>allwords  = <span style="color: #c586c0;">do</span></div><div>    dict <- readFile <span style="color: #ce9178;">"data/dict.txt"</span></div><div>    return  $ length [x | x <- dict , not $ <span style="color: #ce9178;">'-'</span> `elem` x]</div><div>    </div><div><span style="color: #dcdcaa;">main</span> :: <span style="color: #569cd6;">IO</span> <span style="color: #569cd6;">Int</span></div><div>main = <span style="color: #c586c0;">do</span> allwords</div></div><br><div><div style="font-family:Arial; font-size:13px;">error</div></div></div><div style="font-family:Arial; font-size:13px;"><br></div><div style="font-family:Arial; font-size:13px;"><div>* Couldn't match expected type `t0 Char' with actual type `Char'</div><div>* In the second argument of `elem', namely `x'</div><div>  In the second argument of `($)', namely '-' `elem` x</div><div>  In the expression: not $ '-' `elem` x</div><div><br></div><div><br></div><div>could someone tell me what I am doing wrong?</div><div><br></div><div>thanks!</div></div></div>