From adeb076d4d428d41b41e5726ae9d30989bd2ca9b Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Mon, 24 Jun 2019 13:59:27 -0400 Subject: remove unused function --- lib/KeyRing.hs | 7 ------- 1 file changed, 7 deletions(-) (limited to 'lib') diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs index 2c6b782..f172e87 100644 --- a/lib/KeyRing.hs +++ b/lib/KeyRing.hs @@ -1306,10 +1306,3 @@ toCTimeSpec t = CTimeSpec (CTime sec) (truncate $ 10^(9::Int) * frac) foreign import ccall unsafe "futimens" c_futimens :: CInt -> Ptr CTimeSpec -> IO CInt #endif - -onionNameForContact :: KeyKey -> KeyDB -> Maybe String -onionNameForContact kk db = do - contact <- Map.lookup kk db - case getHostnames contact of - (_,(name:_,_)) -> Just $ Char8.unpack name - _ -> Nothing -- cgit v1.2.3