king: textAsTa -> textAsT

pkg/hs/urbit-king/lib/Urbit/Vere/Eyre/KingSubsite.hs

@@ -116,7 +116,7 @@ kingSubsite who scry stat func = do
               => Text
               -> RIO e (Maybe Bool)
     scryAuth cookie =
-      scryNow scry "ex" "" ["authenticated", "cookie", textAsTa cookie]
+      scryNow scry "ex" "" ["authenticated", "cookie", textAsT cookie]
 
 fourOhFourSubsite :: Ship -> KingSubsite
 fourOhFourSubsite who = KS $ \req respond ->

pkg/hs/urbit-noun/lib/Urbit/Noun/Conversions.hs

@@ -13,7 +13,7 @@ module Urbit.Noun.Conversions
   , Path(..), EvilPath(..), Ship(..)
   , Lenient(..), pathToFilePath, filePathToPath
   , showUD, tshowUD
-  , textAsTa
+  , textAsT
   ) where
 
 import ClassyPrelude hiding (hash)
@@ -556,8 +556,8 @@ instance FromNoun Knot where
       else fail ("Non-ASCII chars in knot: " <> unpack txt)
 
 -- equivalent of (cury scot %t)
-textAsTa :: Text -> Text
-textAsTa = ("~~" <>) . concatMap \case
+textAsT :: Text -> Text
+textAsT = ("~~" <>) . concatMap \case
   ' ' -> "."
   '.' -> "~."
   '~' -> "~~"