diff --git a/make-keypairs/Main.hs~ b/make-keypairs/Main.hs~
deleted file mode 100644
index d04d160e7a7c780d18d15eccde4b7069c393f653..0000000000000000000000000000000000000000
--- a/make-keypairs/Main.hs~
+++ /dev/null
@@ -1,29 +0,0 @@
-module Main where
-
-import Codec.Crypto.RSA (generateKeyPair)
-import Crypto.Random (CryptoRandomGen (newGenIO), SystemRandom)
-import Data.ASN1.BinaryEncoding (DER (DER))
-import Data.ASN1.Encoding (ASN1Encoding (encodeASN1))
-import Data.ASN1.Types (ASN1Object (toASN1))
-import qualified Data.ByteString.Lazy as LB
-
--- | The size of the keys to generate.
-bits :: Int
-bits = 2048
-
--- | The number of keys to generate.
-count :: Int
-count = 5
-
-main :: IO ()
-main = do
-    g <- newGenIO :: IO SystemRandom
-    mapM_ (genKey g) [0 .. count - 1]
-
-genKey :: (Show a, CryptoRandomGen c) => c -> a -> IO ()
-genKey g n =
-    let
-        (_, priv, _) = generateKeyPair g bits
-        bytes = encodeASN1 DER (toASN1 priv [])
-     in
-        LB.writeFile ("key-" <> show n <> ".der") bytes