@@ -346,10 +346,12 @@ getTranslations = do
346346 Just (lang, Nothing) -> do -- read from file
347347 let translationFile = "translations/" ++ renderLang lang ++ ".yaml"
348348 let fallbackFile = "translations/" ++ langLanguage lang ++ ".yaml"
349− let getTrans bs =
349+ let getTrans fp = do
350+ bs <- readDataFile fp
350351 case readTranslations (UTF8.toString bs) of
351352 Left e -> do
352− report $ CouldNotLoadTranslations (renderLang lang) e
353+ report $ CouldNotLoadTranslations (renderLang lang)
354+ (fp ++ ": " ++ e)
353355 -- make sure we don't try again...
354356 modifyCommonState $ \st ->
355357 st{ stTranslations = Nothing }
@@ -358,9 +360,9 @@ getTranslations = do
358360 modifyCommonState $ \st ->
359361 st{ stTranslations = Just (lang, Just t) }
360362 return t
361− catchError (readDataFile translationFile >>= getTrans)
363+ catchError (getTrans translationFile)
362364 (\_ ->
363− catchError (readDataFile fallbackFile >>= getTrans)
365+ catchError (getTrans fallbackFile)
364366 (\e -> do
365367 report $ CouldNotLoadTranslations (renderLang lang)
366368 $ case e of