diff options
| author | Ben Sima <ben@bsima.me> | 2020-04-15 15:24:32 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-04-15 17:19:43 -0700 |
| commit | e9a53b69ad68e531a789eff3128f7304fd411808 (patch) | |
| tree | 7c0382cb3c49458e8c989eaaa042bc37b37a9699 /Que/Website.hs | |
| parent | cb77d0eb623c7a398ca86a632d0ea37ac385cc3d (diff) | |
Lint fixes, also delete Biz.Language
Diffstat (limited to 'Que/Website.hs')
| -rw-r--r-- | Que/Website.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Que/Website.hs b/Que/Website.hs index cfb860c..7eb3ae6 100644 --- a/Que/Website.hs +++ b/Que/Website.hs @@ -53,7 +53,7 @@ getKey :: Namespace -> IO (Maybe Key) getKey ns = do home <- Directory.getHomeDirectory let file = home </> ".config" </> "que.conf" - exists <- (Directory.doesFileExist file) + exists <- Directory.doesFileExist file unless exists <| panic <| "not found: " <> Text.pack file conf <- Text.readFile file print (home </> ".config" </> "que.conf") @@ -84,7 +84,7 @@ auth "pub" = pure Nothing auth ns = Config.sectionMb ns <| Config.field "key" run :: Maybe Key -> Text -> Sources -> IO () -run key ns Sources {..} = Async.runConcurrently actions >> return () +run key ns Sources {..} = Async.runConcurrently actions |> void where actions = traverse |