Commit 218ca73a authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a type signature

parent cfe89540
......@@ -733,6 +733,7 @@ consIORef var x = do
Module names:
\begin{code}
looksLikeModuleName :: String -> Bool
looksLikeModuleName [] = False
looksLikeModuleName (c:cs) = isUpper c && go cs
where go [] = True
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment