From: Camil Staps <info@camilstaps.nl>
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"
 	}