Haskell Linha Se Curve