IO Duvida

[phplove]

viva malta estou com um problema, não estou a ver o como poso fazer para por uma função normal numa de IO

ca vai o exemplo

dapipe :: String->String
dapipe [] = "|"
dapipe (h:t)="|"++[h]++ dapipe t

ver :: String -> IO String
ver f  = do {
             r<-dapipe(f)
             return r;
             }   

[Baderous]

Ao usares o operador <- com a função dapipe estás a dizer que esta devolve um Monad, o que não é verdade. Lê isto para ver se percebes o que quero dizer.

Tu nesse caso, apenas tens de fazer o return, porque o que este faz é construir um Monad com algo lá dentro, sendo esse algo o argumento da função return. Como nesse caso, o argumento é uma string, ele vai construir um Monad String.

[phplove]

entao sera uma coisa assim

ver :: String -> IO String
ver f  = do 
            {
            return (dapipe f);
            }