unsafeBoolFromString :: String -> Bool
unsafeBoolFromString str =
    case Safe.readMay str of
        Nothing ->
            error $ "Tried to convert a 'String' to a 'Bool' but failed: " <> toText str
        Just b ->
            b
unsafeBoolFromString :: String -> Bool
unsafeBoolFromString str =
    case Safe.readMay str of
        Nothing ->
            error $ "Tried to convert a 'String' to a 'Bool' but failed: " <> toText str
        Just b ->
            b
unsafeBoolFromString str =
    case Safe.readMay str of
        Nothing ->
            error $ "Tried to convert a 'String' to a 'Bool' but failed: " <> toText str
        Just b ->
            b