aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2017-03-01 07:31:28 -0700
committerSean Whitton <spwhitton@spwhitton.name>2017-03-01 07:31:28 -0700
commite604888020626b0fbbd2fc9c0b0b64975e9ad6f3 (patch)
tree48c0b789e2d67ec9e4773493a8eb8dc3d4889a56
parent114cc54b95c03bc766f23274107565cc6d2fb1bb (diff)
downloadsscan-e604888020626b0fbbd2fc9c0b0b64975e9ad6f3.tar.gz
tidy up more comments
-rw-r--r--Main.hs8
-rw-r--r--Types/State.hs2
2 files changed, 2 insertions, 8 deletions
diff --git a/Main.hs b/Main.hs
index a613066..185a91f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -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