diff --git a/Changelog.md b/Changelog.md
--- a/Changelog.md
+++ b/Changelog.md
@@ -1,5 +1,9 @@
 # Change log for cut-the-crap
 
+## Version 2.1.1 - 2020.10.11
+
++ add build-tools: c2hs to fix nix build
+
 ## Version 2.1.0 - 2020.10.11
 
 + Automatic cleanup of downloaded files
diff --git a/cut-the-crap.cabal b/cut-the-crap.cabal
--- a/cut-the-crap.cabal
+++ b/cut-the-crap.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 1e53cf8a33ea6d51825f52c3ba03f78a95655a38cc32028a5c83dad9d6ed390a
+-- hash: 7811f884fa7c13030c8834974b9ca9c52d2ace79b2c596732c3f50f0f877aa5c
 
 name:           cut-the-crap
-version:        2.1.0
+version:        2.1.1
 synopsis:       Cuts out uninteresting parts of videos by detecting silences.
 description:    Cut the crap is an automatic video editing program for streamers. It can cut out uninteresting parts by detecting silences. This was inspired by [jumpcutter](https://github.com/carykh/jumpcutter), where this program can get better quality results by using an (optional) dedicated microphone track. This prevents cutting of [quieter consonants](https://youtu.be/DQ8orIurGxw?t=675) for example. Using ffmpeg more efficiently also produces faster results and is less error prone.
 category:       video
@@ -46,6 +46,8 @@
   pkgconfig-depends:
       pocketsphinx
     , sphinxbase
+  build-tools:
+      c2hs
   build-depends:
       base >=4.7 && <4.15
     , exceptions
@@ -80,6 +82,8 @@
   pkgconfig-depends:
       pocketsphinx
     , sphinxbase
+  build-tools:
+      c2hs
   build-depends:
       base >=4.7 && <4.15
     , cut-the-crap
@@ -127,6 +131,8 @@
   pkgconfig-depends:
       pocketsphinx
     , sphinxbase
+  build-tools:
+      c2hs
   build-depends:
       QuickCheck
     , base >=4.7 && <4.15
diff --git a/src/Cut/Shell.hs b/src/Cut/Shell.hs
--- a/src/Cut/Shell.hs
+++ b/src/Cut/Shell.hs
@@ -32,8 +32,8 @@
 
 run :: FilePath -> [Text] -> Sh [Text]
 run command args = do
-  time <- liftIO getCurrentTime
-  let format = formatTime defaultTimeLocale "%F %T" time
+  time' <- liftIO getCurrentTime
+  let format = formatTime defaultTimeLocale "%F %T" time'
   liftIO $ putStrLn "--- "
   liftIO $ printf "%s: %s %s" format command (Text.unwords args)
   liftIO $ putStrLn "   " -- flush