From e7e2aa9d77705fa62baed91ffaf67622ed43655e Mon Sep 17 00:00:00 2001
From: Mariusz Ryndzionek <mryndzionek@gmail.com>
Date: Thu, 14 May 2020 16:26:40 +0200
Subject: [PATCH] Small cleanup

---
 apps/SoapySDR.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/apps/SoapySDR.hs b/apps/SoapySDR.hs
index 0399d6d..982c529 100644
--- 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
+    
\ No newline at end of file