@@ -129,7 +129,7 @@ mkVty appConfig = do
129129
130130 input <- inputForConfig config
131131 out <- outputForConfig config
132− intMkVty input out
132+ internalMkVty input out
133133
134134installWidthTable :: Config -> IO ()
135135installWidthTable c = do
@@ -163,8 +163,8 @@ installWidthTable c = do
163163 doLog $ "Successfully installed Unicode width table " <>
164164 " from " <> show path
165165
166−intMkVty :: Input -> Output -> IO Vty
167−intMkVty input out = do
166+internalMkVty :: Input -> Output -> IO Vty
167+internalMkVty input out = do
168168 reserveDisplay out
169169
170170 shutdownVar <- atomically $ newTVar False