serokell/haskell-with-utf8
1
1
Fork 0
mirror of https://github.com/serokell/haskell-with-utf8.git synced 2024-08-16 02:00:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

troubleshoot: Show listing locale-archive early

Browse Source 
In case something bad happens with `localedef --list`, print the header
early to make it clear what failed.
Also, print the exception, if it happened.
This commit is contained in:
Kirill Elagin 2020-04-21 23:34:25 +03:00
parent 5b93144bd2
commit 59bf56fa0d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/utf8-troubleshoot/Main.hs
View File

@ -11,7 +11,7 @@ module Main (main) where
import Prelude hiding (print, putStr, putStrLn)
import Control.Exception.Safe (handleIO, tryIO)
import Control.Exception.Safe (catchIO, tryIO)
import Control.Monad (filterM, forM_)
import Data.List (sort)
import Data.Version (showVersion)
@ -118,7 +118,8 @@ showLocales = do
showLocaleList (lines out)
Left _ -> do
listDir "/usr/lib/locale"
handleIO (\_ -> pure ()) $ listFile "/usr/lib/locale/locale-archive"
listFile "/usr/lib/locale/locale-archive" `catchIO` \e ->
putStrLn $ "<error>: " <> show e
where
showLocaleList :: [String] -> IO ()
showLocaleList locales =
@ -141,8 +142,8 @@ showLocales = do
listFile path = doesPathExist path >>= \case
False -> putStrLn $ " * " <> path <> " does not exist."
True -> do
out <- readProcess "localedef" ["--list", path] ""
putStrLn $ " * " <> path <> ":"
out <- readProcess "localedef" ["--list", path] ""
showLocaleList (lines out)