- :cmd do { dot_ghc <- System.Directory.getAppUserDataDirectory "ghc"; let { juli8 = dot_ghc ++ "/juli8"; cmds = juli8 ++ "/commands" }; juli8_exists <- System.Directory.doesDirectoryExist juli8; cmds_exists <- System.Directory.doesFileExist cmds; Control.Monad.when cmds_exists $ putStrLn "Loading juli8/commands ..."; return $ unlines $ if cmds_exists then [":set -i"++juli8, ":script "++cmds] else if juli8_exists then [":set -i"++juli8] else [] }
+ :{
+ :cmd do { dot_ghc <- System.Directory.getAppUserDataDirectory "ghc";
+ let { juli8 = dot_ghc ++ "/juli8";
+ cmds = juli8 ++ "/commands" };
+ juli8_exists <- System.Directory.doesDirectoryExist juli8;
+ cmds_exists <- System.Directory.doesFileExist cmds;
+ Control.Monad.when cmds_exists $ putStrLn "Loading juli8/commands ...";
+ return $ unlines $ if cmds_exists then [":set -i"++juli8, ":script "++cmds] else if juli8_exists then [":set -i"++juli8] else [] }
+ :}