diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-01 07:31:28 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-01 07:31:28 -0700 |
commit | e604888020626b0fbbd2fc9c0b0b64975e9ad6f3 (patch) | |
tree | 48c0b789e2d67ec9e4773493a8eb8dc3d4889a56 /Main.hs | |
parent | 114cc54b95c03bc766f23274107565cc6d2fb1bb (diff) | |
download | sscan-e604888020626b0fbbd2fc9c0b0b64975e9ad6f3.tar.gz |
tidy up more comments
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 8 |
1 files changed, 2 insertions, 6 deletions
@@ -142,6 +142,8 @@ scanimageArgs st = Letter -> 279.4 Photo -> 100 ] +-- other device-specific scanimage options the old script supported: +-- --swdespeck; --color-filter; --depth processCommand :: St -> IO () processCommand st = case st^.stScanSess of @@ -170,9 +172,3 @@ createProcessWait_ :: String -> CreateProcess -> IO () createProcessWait_ s c = do (_, _, _, p) <- createProcess_ s c void $ waitForProcess p - --- TODO scanning should happen in main. We use withTempDir to setup a --- session, and then fire up brick again. add additional state --- element that is the user's chosen action. i.e. don't use --- suspendAndResume which is for getting user input, not running the --- result of the UI. Move the whole UI to a module |