diff options
| author | Andrew Cady <d@jerkface.net> | 2019-06-24 13:59:27 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-07-01 06:10:19 -0400 |
| commit | adeb076d4d428d41b41e5726ae9d30989bd2ca9b (patch) | |
| tree | ed4b8efccb6682a8b2af67f5c2c2bff95e277ea9 | |
| parent | ffdaafd6675ab7768a748520e3fbe9c25dd6627c (diff) | |
remove unused function
| -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 | ||