haskellのif文で作成されたIO/access変数の変数を更新する方法

Question

私は最初にオブジェクトを作成するコードをいくつか持っています。次に、さまざまなコマンドに応じてオブジェクトのさまざまな更新を実行したいと思います。

main = do 
    putStrLn "Enter command, c x y, d x y" 
    s <- getLine 
    let object = newObject 
    if head s == 'c' then 
     let object2 = updateObject object s in 
     print object 
    else if head s == 'd' then 
     let object2 = updateObject object s in 
     print object 
    else do 
     print "Error, try again" 
     main 
    putStrLn "Enter new command" 
    c <- getLine 
    print $ updateObject object2 c 

エラー：

Variable not in scope: object2 :: Object 

文は、後で使用することができた場合、変更は内部のオブジェクトに行われるように、私は主な機能のためのオブジェクトは、「グローバル」にするにはどうすればよいですか？

どうすればいいですか？

Answer 1

メインではあまりおこなわないようにしてください。ifとelseロジックが存在してはいけません。すべてのものを別の機能に移動し、メインをきれいにしてください。 ここで使用するifとelseのロジックは、ドメイン選択ではなく、アプリケーションのフローに直接関係しているので有効です（domain =この関数またはこの関数を使って更新する必要がありますか？私のプログラムのために、私は終了するかしないか）。

main = do 
     putStrLn "Enter command, c x y, d x y" 
     s <- getLine 
     if not $ validateInput s then 
      print "Error, try again" 
      main 
     else do 
      let object = newObject 
      updateObject object s 
      print object 


updateObject :: a -> String -> a 
updateObject object s 
      | head s == 'c' = --do updates here 
      | head s == 's' = --do updates here 

また、あなたが簡単な状況「新しいコマンドを入力します」を扱うことができるように、コンソールのループを作成しよう：

はこれを試してみてください。できるだけ早くメインから離れる。

Answer 2

Object -> Object、モナドState、IORefなどのような機能があります。どのようにするかは、正確に何をしたいかによって異なります。

最も簡単な方法（初心者の方）は、オブジェクトの更新バージョンを生成する関数によってこれを行うのが最も簡単です。例えば

：

updateObject :: Command -> Object -> Maybe Object 
updateObject command initialObject = case command of 
    'c':_ -> Just $ ... -- update initialObject by the 'c' command 
    'd':_ -> Just $ ... -- update initialObject by the 'd' command 
    _  -> Nothing -- invalid command 

main = do 
    putStrLn "Enter command, c x y, d x y" 
    command <- getLine 
    case updateObject command newObject of 
     Just updatedObject -> print updatedObject 
     Nothing -> do 
      print "Error, try again" 
      main