fix: replaceQuestion at beginning of parens

phijor · Feb 9, 2023 · 02020b0 · 02020b0
1 parent 9b31f5d
commit 02020b0
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Cornelis/Goals.hs b/src/Cornelis/Goals.hs
@@ -172,6 +172,7 @@ getGoalContents b ip = fromMaybe "" <$> getGoalContents_maybe b ip
 replaceQuestion :: Text -> Text
 replaceQuestion = T.unwords . fmap go . T.words
   where
+    go "(?" = "({! !}"
     go "?" = "{! !}"
     go x   =
       case T.dropWhileEnd (== ')') x of