diff options
| author | joe <joe@jerkface.net> | 2017-10-27 17:39:30 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-10-27 17:39:30 -0400 |
| commit | e2e69ffc55abdd6df9e6f328ee867d8ed6639322 (patch) | |
| tree | 319cd538e88ade2138d7614f6d5235edeb384feb /examples | |
| parent | 50d3bb1fc90c4d83d390fa2c5b328935d0ffed1d (diff) | |
Added TODO regarding Tox "Hardening" message.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/dhtd.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index ea2b3459..9966fb32 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -164,6 +164,7 @@ loadNodes netname = do | |||
| 164 | >>= maybe (ioError $ userError "Nothing") return | 164 | >>= maybe (ioError $ userError "Nothing") return |
| 165 | either (const $ fallbackLoad fname) return attempt | 165 | either (const $ fallbackLoad fname) return attempt |
| 166 | 166 | ||
| 167 | fallbackLoad :: FromJSON t => FilePath -> IO [t] | ||
| 167 | fallbackLoad fname = do | 168 | fallbackLoad fname = do |
| 168 | attempt <- tryIOError $ do | 169 | attempt <- tryIOError $ do |
| 169 | J.decode <$> L.readFile fname | 170 | J.decode <$> L.readFile fname |