>>771

趣旨がわからんが

data StrIntgr = Str String | Intgr Int deriving Show
f n = if n < 0 then Str "I don't like negative numbers." else Intgr n

みたいな直和型ではなんかいかんの？
ここで聞く前になにか自分で入門書読んだ方がよさそうな気がするが。