diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/KeyRing.hs | 7 |
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) | |||
1306 | foreign import ccall unsafe "futimens" | 1306 | foreign 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 | |||
1310 | onionNameForContact :: KeyKey -> KeyDB -> Maybe String | ||
1311 | onionNameForContact kk db = do | ||
1312 | contact <- Map.lookup kk db | ||
1313 | case getHostnames contact of | ||
1314 | (_,(name:_,_)) -> Just $ Char8.unpack name | ||
1315 | _ -> Nothing | ||