@@ -145,7 +145,7 @@ instance Handler Logging IO where
145145 let res = and $ map (\x => elem x cs') (cats st)
146146 let prompt = if isNil (cats st)
147147 then unwords [show l, ":"]
148− else unwords [show l, ":", show (cats st)]
148+ else unwords [show l, ":", show (cats st), ":"]
149149 if res || isNil (cats st)
150150 then do
151151 putStrLn $ unwords [prompt, msg]