Strings.hs

module Fx.Strings where

import Fx.Prelude

failedWaitingForFinalResult :: SomeException -> String
failedWaitingForFinalResult exc =
  showString "Failed waiting for final result: " (show exc)

failedWaitingForResult :: SomeException -> String
failedWaitingForResult exc =
  showString "Failed waiting for result: " (show exc)

unexpectedException :: SomeException -> String
unexpectedException exc =
  showString "Unexpected exception: " (show exc)

uncaughtException :: SomeException -> String
uncaughtException exc =
  showString "Uncaught exception: " (show exc)

fatalErrorAtThreadPath :: [ThreadId] -> String -> String
fatalErrorAtThreadPath =
  let showTids = intercalate "/" . fmap (drop 9 . show)
   in \tids reason ->
        showString ("Fatal error at thread path /") $
          showString (showTids tids) $
            showString ". " $
              reason

bug :: String -> String
bug details =
  showString "Bug in the \"fx\" library. Please report it to maintainers. " details