WxHaskell이 명령 행 arg 기능을 깨뜨림

Question

WXHaskell에 프로그램을 작성하여 작동하는지 확인했습니다. 간단히 말해, GUI 나 명령 행 인터페이스를 통해 프로그램을 사용할 수 있도록 계획했습니다. 나중에 GetOpts 라이브러리를 사용하여 명령 줄 인수 처리를 추가하고 다양한 인수가 의도 한대로 작동하는지 테스트하기 시작했습니다.

그러나 일단 프로그램이 명령 행 옵션으로 실행되기 시작하면 프로그램이 실패하기 시작했습니다. 프로그램이 GUI 모드 (예 : WXHaskell 실행)로 호출 될 때 프로그램은 인식 할 수없는 명령 행 옵션에 대한 경고와 충돌했습니다 WXwidgets 팝업 창 형태였습니다). 프로그램이 터미널 모드에서 실행될 때마다 모든 옵션이 올바르게 처리 되었기 때문에 WX 계산을 실행하면 "ARGV"값이 일부 WX 함수에 전달되고이 인수가 의도 된 것이므로 의심 스럽습니다. 주 프로그램 본문, 그들은 인식되지 않을 것입니다.

나는이 동작을 재현하는 작은 테스트 케이스 (GetOpts 제외)를 작성했습니다.

import Graphics.UI.WX 
import System.Environment (getArgs) 

gui = do 
    fr <- frame [text := "GUI calculation"] 
    t <- staticText fr [text := "Enter a number below"] 
    n <- entry fr [] 
    let foo = do 
     v <- read <$> get n text 
     set t [text := "Your number * 3 is " ++ show (v * 3 :: Int) ] 
    b <- button fr [text := "Calculate", on command := foo] 
    set fr [layout := column 3 [widget t, widget n, widget b] ] 

terminal = do 
    putStrLn "Enter a number" 
    v <- read <$> getLine 
    putStrLn $ "Your number * 3 is " ++ (show $ v * 3) 

main = do 
    a <- getArgs 
    case a of 
    ("terminal"):_ -> terminal 
    ("gui"):_ -> start gui 
    _ -> start gui 

커맨드 라인 인수를 처리하고, (3 간단하여 사용자가 지정한 지능 승산) 계산은 단말기 나 GUI를 통해서 실행된다.

사용자가 "터미널"을 지정하면 문제없이 프로그램이 완료됩니다. 사용자가 args를 지정하지 않으면 계산은 기본적으로 gui 모드에서 실행되며 정상적으로 완료됩니다.

사용자가 "gui"인수를 지정하면 프로그램이 오류 (팝업 창에서)와 충돌합니다 : "예기치 않은 매개 변수 'gui'".

내 arg가 분명히 후속 작업으로 전달되는 이유 또는 더 나은 방법으로이 문제를 방지하는 방법을 알고 있다면 누구나 만족합니다!

Answer 1

동일한 문제가 발생했습니다. 내 해결 방법과 같이 명령 줄 인수없이 GUI를 시작하는 withArgs을 사용하는 것이었다 : (

main = do 
    a <- getArgs 
    case a of 
    ("terminal"):_ -> terminal 
    ("gui"):_ -> withArgs [] (start gui) 
    _ -> withArgs [] (start gui)