diff options
| author | Lia Lenckowski <lialenck@protonmail.com> | 2023-07-25 21:45:11 +0200 |
|---|---|---|
| committer | Lia Lenckowski <lialenck@protonmail.com> | 2023-07-25 21:45:11 +0200 |
| commit | da4b5f623273bdb46d8e59f6d35fa7c236d50484 (patch) | |
| tree | 9bd453e7217c85af91a7876b44e503e41eb3654a /src | |
| parent | 6eb4dcd414e220ca95e4442a1a21cd448e8035ce (diff) | |
| download | fastbangs-da4b5f623273bdb46d8e59f6d35fa7c236d50484.tar fastbangs-da4b5f623273bdb46d8e59f6d35fa7c236d50484.tar.bz2 fastbangs-da4b5f623273bdb46d8e59f6d35fa7c236d50484.tar.zst | |
generate bangs.json when not present
Diffstat (limited to 'src')
| -rw-r--r-- | src/BangState.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/BangState.hs b/src/BangState.hs index 582deca..b091532 100644 --- a/src/BangState.hs +++ b/src/BangState.hs @@ -9,6 +9,7 @@ module BangState ( ) where import Codec.Compression.Brotli (compress) +import Control.Applicative ((<|>)) import Control.Concurrent.STM.TChan import Control.Monad (forever) import Data.Aeson @@ -54,8 +55,8 @@ spawnFileSyncThread s = do atomically $ reserialize s loadOwnBangs :: IO Bangs -loadOwnBangs = eitherDecodeFileStrict "bangs.json" >>= \case - Left e -> error e +loadOwnBangs = eitherDecodeFileStrict "bangs.json" <|> return (Left "") >>= \case + Left e -> return mempty Right b -> return b -- also spawns a thread for disk synchronization |