diff options
-rw-r--r-- | Main.hs | 8 | ||||
-rw-r--r-- | Types/State.hs | 2 |
2 files changed, 2 insertions, 8 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 diff --git a/Types/State.hs b/Types/State.hs index 02ff6a2..f49ee31 100644 --- a/Types/State.hs +++ b/Types/State.hs @@ -95,8 +95,6 @@ data St = , _stOutFormat :: OutputFormat , _stOutdir :: FilePath -- ^ where to save final PDFs } --- other device-specific scanimage options the old script supported: --- --swdespeck; --color-filter; --depth makeLenses ''St |