2 files changed, 2 insertions, 5 deletions

diff --git a/examples/GetTorrent.hs b/examples/GetTorrent.hs
index 5e624fa1..db52263d 100644
--- a/examples/GetTorrent.hs
+++ b/examples/GetTorrent.hs
@@ -52,9 +52,6 @@ programInfo = info (helper <*> paramsParser)
   <> header   "gettorrent - get torrent file by infohash"
    )
 
-fakeTracker :: URI
-fakeTracker = fromJust $ parseURI "http://foo.org"
-
 exchangeTorrent :: PeerAddr IP -> InfoHash -> IO InfoDict
 exchangeTorrent addr ih = do
   pid <- genPeerId
@@ -72,7 +69,7 @@ getTorrent Params {..} = do
     DHT.lookup topic $$ C.mapM_ $ \ peers -> do
       liftIO $ forM_ peers $ \ peer -> do
         infodict <- exchangeTorrent (IPv4 <$> peer) topic
-        let torrent = nullTorrent fakeTracker infodict
+        let torrent = nullTorrent infodict -- TODO add tNodes, tCreated, etc?
         toFile (show topic <.> torrentExt) torrent
         exitSuccess
 
diff --git a/examples/MkTorrent.hs b/examples/MkTorrent.hs
index 9eda3a52..7bf8b513 100644
--- a/examples/MkTorrent.hs
+++ b/examples/MkTorrent.hs
@@ -122,7 +122,7 @@ amendInfo = info (helper <*> parser) modifier
 type Amend = Torrent -> Torrent
 
 fields :: [(Text, IO Amend)]
-fields = [ ("announce",      set announce            <$> askURI)
+fields = [ ("announce",      set announce     . Just <$> askURI)
          , ("comment",       set comment      . Just <$> askFreeform)
          , ("created by",    set createdBy    . Just <$> askFreeform)
          , ("publisher url", set publisherURL . Just <$> askURI)