Add strictness annotations

Cloogle/API.dcl

@@ -320,7 +320,7 @@ instance < Result
 
 instance == FunctionKind
 
-getBasicResult :: Result -> Maybe BasicResult
+getBasicResult :: !Result -> Maybe BasicResult
 
 toSingleLine :: !Request -> Maybe String
 parseSingleLineRequest :: !String -> MaybeErrorString Request

Cloogle/API.icl

@@ -160,7 +160,7 @@ where
 
 instance == FunctionKind where == a b = a === b
 
-getBasicResult :: Result -> Maybe BasicResult
+getBasicResult :: !Result -> Maybe BasicResult
 getBasicResult (FunctionResult (br,_))       = Just br
 getBasicResult (TypeResult (br,_))           = Just br
 getBasicResult (ClassResult (br,_))          = Just br

Cloogle/Client.dcl

@@ -5,6 +5,6 @@ from Internet.HTTP import :: HTTPRequest
 
 import Cloogle.API
 
-toHTTPRequest :: Request -> HTTPRequest
+toHTTPRequest :: !Request -> HTTPRequest
 
-request :: Request *World -> *(MaybeErrorString Response, *World)
+request :: !Request !*World -> *(MaybeErrorString Response, *World)

Cloogle/Client.icl

@@ -15,7 +15,7 @@ import Text.GenJSON
 
 import Cloogle.API
 
-toHTTPRequest :: Request -> HTTPRequest
+toHTTPRequest :: !Request -> HTTPRequest
 toHTTPRequest req =
 	{ newHTTPRequest
 	& req_method   = HTTP_GET
@@ -35,7 +35,7 @@ where
 		]
 	where printBool b = if b "true" "false"
 
-request :: Request *World -> *(MaybeErrorString Response, *World)
+request :: !Request !*World -> *(MaybeErrorString Response, *World)
 request req w = appFst ((=<<) parseResponse) $ doHTTPRequest (toHTTPRequest req) 10000 w
 where
 	parseResponse :: HTTPResponse -> MaybeErrorString Response