目前這是我的 ghci 提示符的樣子：
我想這樣做，以便我的提示不會顯示重復的模塊，如下所示：
但我真的不知道怎么做。我的配置（ghci.conf）檔案的內容如下所示：
:set m
import qualified IPPrint
import qualified Language.Haskell.HsColour as HsColour
import qualified Language.Haskell.HsColour.Colourise as HsColour
import qualified Language.Haskell.HsColour.Output as HsColour
let myColourPrefs = HsColour.defaultColourPrefs { HsColour.conid = [HsColour.Foreground HsColour.Yellow, HsColour.Bold], HsColour.conop = [HsColour.Foreground HsColour.Yellow], HsColour.string = [HsColour.Foreground HsColour.Green], HsColour.char = [HsColour.Foreground HsColour.Cyan], HsColour.number = [HsColour.Foreground HsColour.Red, HsColour.Bold], HsColour.layout = [HsColour.Foreground HsColour.White], HsColour.keyglyph = [HsColour.Foreground HsColour.White] }
let myPrint = putStrLn . HsColour.hscolour (HsColour.TTYg HsColour.XTerm256Compatible) myColourPrefs False False "" False . IPPrint.pshow
:set -interactive-print=myPrint
:{
prompter :: [String] -> Int -> IO String
prompter modules line = return $
concat [ "\ESC[33m\STX[Module(s): "
-- this is the only line that changed
, Data.List.intercalate ", " $ zipWith (\n m -> concat [show n, ".", m]) [1..] modules
, "]\ESC[0m\STX\n \ESC[38;5;86m\STX\x03BB > \ESC[0m\STX"
]
:}
:set prompt-function prompter
clear = putStr "\ESC[2J\ESC[H"
先感謝您。
uj5u.com熱心網友回復：
通過使用nubwhich 從串列中洗掉重復元素（參見：
為此，還必須將代碼修改為：
:{
prompter :: [String] -> Int -> IO String
prompter modules line = return $
concat [ "\ESC[33m\STX[Module(s): "
-- this is the only line that changed
, Data.List.intercalate ", " $ zipWith (\n m -> concat [show n, ".", m]) [1..] (nub modules)
, "]\ESC[0m\STX\n \ESC[38;5;86m\STX\x03BB > \ESC[0m\STX"
]
:}
由于nub是 Data.List 模塊的一部分，我還必須包括：
import Data.List
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/462845.html