gistfile1.hs

@@ -520,7 +520,7 @@
     minput <- do
         set sembox [ text :~ trim ]
         loadEverything   pstRef wrangler
-        customSemParser wrangler . T.pack <$> get sembox text
+        customSemParser wrangler . unautocorrect . T.pack <$> get sembox text
     case minput of
       Left e -> errorDialog f "Please give me better input" (show e)
       Right semInput -> do
@@ -537,6 +537,10 @@
         case getBuilderType (pa pst) of
             SimpleBuilder         -> a simpleGui2p
             SimpleOnePhaseBuilder -> a simpleGui1p
+    unautocorrect = T.replace "©" "(C)"
+    -- sigh! Cocoa text boxes do autocorrection, which messes up this common
+    -- bit of semantics; ideally I'd just figure out how to turn this off
+    -- programmatically

 resultsGui :: BG.BuilderGui -> ProgState -> CustomSem sem -> TestCase sem -> IO ()
 resultsGui builderGui pst wrangler semInput = do