-3
type Record=([Char],[Char],[Char],[Char],[Char])
createAccount::IO()->Record
createAccount=do
putStrLn "Enter First Name"
fname<-getLine
putStrLn "Enter Last Name"
lname<-getLine
putStrLn "Enter State"
state<-getLine
putStrLn "Enter City"
city<-getLine
putStrLn "Enter House No."
hnum<-getLine
let hnumInt = read hnum :: Integer
putStrLn "Enter Contact"
contact<-getLine
return (fname,lname,state,city,contact)
得ることに、このERRORTYPEエラー明示的に結合型付け ***期間:createAccount ***タイプ:IO([シャア]、[シャア]、[シャア]、[シャア]、[シャア]) * **一致しません:IO() - >レコード –
ハウスナンバーを取得する理由はありません。 'createAccount'はそれを使用しません。 – chepner