diff --git a/Cloogle/API.dcl b/Cloogle/API.dcl
index b9c71e63105f9bb136e9ef18624dd685c71ca3d6..901257f4226dee63b8672b315d8aa9b05b65a409 100644
--- a/Cloogle/API.dcl
+++ b/Cloogle/API.dcl
@@ -314,5 +314,5 @@ instance < Result
 
 instance == FunctionKind
 
-toSingleLine :: Request -> Maybe String
-parseSingleLineRequest :: String -> MaybeErrorString Request
+toSingleLine :: !Request -> Maybe String
+parseSingleLineRequest :: !String -> MaybeErrorString Request
diff --git a/Cloogle/API.icl b/Cloogle/API.icl
index abb5142984d9d7f02acb6d564b41020c1ac86b36..f05745ea3f73e0c50f02102cfcdb44437bb7188d 100644
--- a/Cloogle/API.icl
+++ b/Cloogle/API.icl
@@ -135,14 +135,14 @@ where
 
 instance == FunctionKind where == a b = a === b
 
-parseSingleLineRequest :: String -> MaybeErrorString Request
+parseSingleLineRequest :: !String -> MaybeErrorString Request
 parseSingleLineRequest s = case split "::" s of
 	["",type]   -> Ok {zero &                        unify=Just $ trim type}
 	[name,type] -> Ok {zero & name=Just $ trim name, unify=Just $ trim type}
 	[name]      -> Ok {Request | zero & name=Just $ trim name}
 	_           -> Error "Multiple ::s found"
 
-toSingleLine :: Request -> Maybe String
+toSingleLine :: !Request -> Maybe String
 toSingleLine req
 | isJust req.typeName && isJust req.className = Nothing
 | isJust req.typeName  = req.typeName