Skip to content
This repository was archived by the owner on Apr 1, 2025. It is now read-only.

Commit b05f5d2

Browse files
authored
Merge branch 'master' into proto-fixes
2 parents 540f0eb + daa018d commit b05f5d2

File tree

1 file changed

+4
-12
lines changed

1 file changed

+4
-12
lines changed

.ghci

Lines changed: 4 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -2,16 +2,9 @@
22
:set -package pretty-show -package hscolour
33

44
-- See docs/💡ProTip!.md
5-
:undef pretty
6-
:def pretty \ _ -> return ":set -interactive-print Semantic.Util.Pretty.prettyShow"
7-
8-
-- See docs/💡ProTip!.md
9-
:undef no-pretty
10-
:def no-pretty \_ -> return ":set -interactive-print System.IO.print"
11-
12-
-- See docs/💡ProTip!.md
13-
:undef r
14-
:def r \_ -> return (unlines [":reload", ":pretty"])
5+
:def! pretty \ _ -> return ":set -interactive-print Semantic.Util.Pretty.prettyShow"
6+
:def! no-pretty \_ -> return ":set -interactive-print System.IO.print"
7+
:def! r \_ -> return (unlines [":reload", ":pretty"])
158

169
-- See docs/💡ProTip!.md for documentation & examples.
1710
:{
@@ -29,8 +22,7 @@ assignmentExample lang = case lang of
2922
_ -> mk "" ""
3023
where mk fileExtension parser = putStrLn ("example: fmap (() <$) . runTask . parse " ++ parser ++ "Parser =<< Semantic.Util.blob \"example." ++ fileExtension ++ "\"") >> return ("import Parsing.Parser\nimport Semantic.Task\nimport Semantic.Util")
3124
:}
32-
:undef assignment
33-
:def assignment assignmentExample
25+
:def! assignment assignmentExample
3426

3527
-- Enable breaking on errors for code written in the repl.
3628
:seti -fbreak-on-error

0 commit comments

Comments
 (0)