-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