Small cleanup

mryndzionek · May 14, 2020 · e7e2aa9 · e7e2aa9
1 parent 88edc3d
commit e7e2aa9
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/apps/SoapySDR.hs b/apps/SoapySDR.hs
@@ -142,7 +142,7 @@ parser =
      showDefault)
 
 main :: IO ()
-main = run =<< execParser opts
+main = sdrProcess =<< execParser opts
   where
     opts =
       info
@@ -268,6 +268,4 @@ sdrProcess opts = do
       cleanup
       csrc
     Nothing -> putStrLn $ "Unable to open source: " ++ show (_input opts)
-
-run :: Opts -> IO ()
-run = sdrProcess
+