From: Camil Staps Date: Wed, 27 Jan 2016 17:54:23 +0000 (+0100) Subject: Removed ignored strictness hints X-Git-Tag: v0.3^2~3 X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=e8e4e5c50aa90428d79b59a02b9de350711d2c10;p=CleanReadLine.git Removed ignored strictness hints --- diff --git a/ReadLine.dcl b/ReadLine.dcl index f859e32..734ca20 100644 --- a/ReadLine.dcl +++ b/ReadLine.dcl @@ -10,7 +10,7 @@ instance toString HistoryItem instance toString HistoryState //Non-library functions -setReadLineName :: !String !*env -> !*env +setReadLineName :: !String !*env -> *env //Readline readLine :: !String !Bool !*env -> (!Maybe String, !*env) @@ -18,18 +18,18 @@ readLine :: !String !Bool !*env -> (!Maybe String, !*env) //Initializing History and State Management //Note that this HAS to be executed when you want to add entries when the //history has not been used -usingHistory :: !*env -> !*env +usingHistory :: !*env -> *env historyGetHistoryState :: !*env -> (!HistoryState, !*env) -historySetHistoryState :: !HistoryState !*env -> !*env +historySetHistoryState :: !HistoryState !*env -> *env //History List Management -addHistory :: !String !*env -> !*env -addHistoryTime :: !String !*env -> !*env +addHistory :: !String !*env -> *env +addHistoryTime :: !String !*env -> *env removeHistory :: !Int !*env -> (!HistoryItem, !*env) replaceHistoryEntry :: !Int !String !*env -> (!HistoryItem, !*env) -clearHistory :: !*env -> !*env -stifleHistory :: !Int !*env -> !*env -unstifleHistory :: !*env -> !*env +clearHistory :: !*env -> *env +stifleHistory :: !Int !*env -> *env +unstifleHistory :: !*env -> *env historyIsStifled :: !*env -> (!Int, !*env) //Information About the History List diff --git a/ReadLine.icl b/ReadLine.icl index 6320117..790db28 100644 --- a/ReadLine.icl +++ b/ReadLine.icl @@ -26,13 +26,13 @@ readLine s h e ccall cleanReadLine "SI:VSI:A" } -setReadLineName :: !String !*env -> !*env +setReadLineName :: !String !*env -> *env setReadLineName s e = code { ccall cleanSetReadLineName "S:V:A" } //Initializing History and State Management -usingHistory :: !*env -> !*env +usingHistory :: !*env -> *env usingHistory e = code { ccall cleanUsingHistory ":V:A" } @@ -60,39 +60,39 @@ historyGetHistoryState e } -historySetHistoryState :: !HistoryState !*env -> !*env +historySetHistoryState :: !HistoryState !*env -> *env historySetHistoryState {entries,offset,flags} e # e = initNewHistoryState offset flags (length entries) e # e = setItems entries 0 e = commit e where - initNewHistoryState :: !Int !Int !Int !*env -> !*env + initNewHistoryState :: !Int !Int !Int !*env -> *env initNewHistoryState o f l e = code { ccall cleanInitNewHistoryState "III:V:A" } - setItems :: ![HistoryItem] !Int !*env -> !*env + setItems :: ![HistoryItem] !Int !*env -> *env setItems [] _ e = e setItems [x:xs] i e # e = setItem i x.line x.timestamp e = setItems xs (i+1) e - setItem :: !Int !String !String !*env -> !*env + setItem :: !Int !String !String !*env -> *env setItem i l t e = code { ccall cleanSetNewHistoryEntry "ISS:V:A" } - commit :: !*env -> !*env + commit :: !*env -> *env commit e = code { ccall cleanCommitSetHistory ":V:A" } //History List Management -addHistory :: !String !*env -> !*env +addHistory :: !String !*env -> *env addHistory s e = code { ccall cleanAddHistory "S:V:A" } -addHistoryTime :: !String !*env -> !*env +addHistoryTime :: !String !*env -> *env addHistoryTime s e = code { ccall cleanAddHistoryTime "S:V:A" } @@ -117,17 +117,17 @@ replaceHistoryEntry i s e ccall cleanReplaceHistoryEntry "IS:VSS:A" } -clearHistory :: !*env -> !*env +clearHistory :: !*env -> *env clearHistory e = code { ccall cleanClearHistory ":V:A" } -stifleHistory :: !Int !*env -> !*env +stifleHistory :: !Int !*env -> *env stifleHistory i e = code { ccall cleanStifleHistory "I:V:A" } -unstifleHistory :: !*env -> !*env +unstifleHistory :: !*env -> *env unstifleHistory e = code { ccall cleanUnstifleHistory ":V:A" }