GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-16 11:22:33 +03:00
Code Issues Projects Releases Wiki Activity

Fix typos

Browse Source
This commit is contained in:
Iavor Diatchki 2018-05-07 11:50:51 -07:00
parent 984012a1a4
commit 59aa5f11d0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Cryptol/TypeCheck/Infer.hs
View File

@ -560,7 +560,7 @@ inferCArm :: Int -> [P.Match Name] -> InferM
, Type -- length of sequence
)
inferCArm _ [] = do n <- newType (text "lenght of empty comprehension") KNum
inferCArm _ [] = do n <- newType (text "length of empty comprehension") KNum
-- shouldn't really happen
return ([], Map.empty, n)
inferCArm _ [m] =
@ -570,7 +570,7 @@ inferCArm _ [m] =
inferCArm armNum (m : ms) =
do (m1, x, t, n) <- inferMatch m
(ms', ds, n') <- withMonoType (x,t) (inferCArm armNum ms)
-- XXX: Well, this is just the lenght of this sub-sequence
-- XXX: Well, this is just the length of this sub-sequence
let src = text "length of" <+> ordinal armNum <+>
text "arm of list comprehension"
sz <- newType src KNum