summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/KeyRing.hs7
1 files changed, 0 insertions, 7 deletions
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)
1306foreign import ccall unsafe "futimens" 1306foreign import ccall unsafe "futimens"
1307 c_futimens :: CInt -> Ptr CTimeSpec -> IO CInt 1307 c_futimens :: CInt -> Ptr CTimeSpec -> IO CInt
1308#endif 1308#endif
1309
1310onionNameForContact :: KeyKey -> KeyDB -> Maybe String
1311onionNameForContact kk db = do
1312 contact <- Map.lookup kk db
1313 case getHostnames contact of
1314 (_,(name:_,_)) -> Just $ Char8.unpack name
1315 _ -> Nothing