diff --git a/app/Main.hs b/app/Main.hs
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -324,7 +324,7 @@
         whiteListFilter (Just wl) = filterWhitelistSparseMat wl
         unFilteredSc = mconcat mats
         sc           =
-            ( bool id (filterNumSparseMat filterThresholds')
+            ( bool (filterNumSparseMat filterThresholds') id
             $ unNoFilterFlag noFilterFlag'
             )
                 . whiteListFilter cellWhitelist
@@ -1046,10 +1046,7 @@
     return ()
 
 main :: IO ()
-main = forkIO oldmain >> threadDelay 60000000
-
-oldmain :: IO ()
-oldmain = do
+main = do
     opts <- getRecord "too-many-cells, Gregory W. Schwartz.\
                       \ Clusters and analyzes single cell data."
 
diff --git a/too-many-cells.cabal b/too-many-cells.cabal
--- a/too-many-cells.cabal
+++ b/too-many-cells.cabal
@@ -1,6 +1,6 @@
 cabal-version: >=1.10
 name: too-many-cells
-version: 0.1.11.0
+version: 0.1.12.0
 license: GPL-3
 license-file: LICENSE
 copyright: 2019 Gregory W. Schwartz