isCharSearchTerm :: Text -> Bool
isCharSearchTerm t =
    case Text.uncons t of
    Just ('\'', x) -> Text.length x == 1
    _ -> False
isCharSearchTerm :: Text -> Bool
isCharSearchTerm t =
    case Text.uncons t of
    Just ('\'', x) -> Text.length x == 1
    _ -> False
isCharSearchTerm t =
    case Text.uncons t of
    Just ('\'', x) -> Text.length x == 1
    _ -> False