Merge pull request #322 from Sheeo/type-incomplete-matches
Incomplete matches in Type.hs
This commit is contained in:
commit
d6a3a18704
1 changed files with 1 additions and 3 deletions
|
@ -370,13 +370,11 @@ toSrcType variable = do
|
|||
case name desc of
|
||||
Just x@(c:cs) | Char.isLower c -> return (Src.Var x)
|
||||
| otherwise -> return (Src.Data x [])
|
||||
Nothing ->
|
||||
error $ concat
|
||||
_ -> error $ concat
|
||||
[ "Problem converting the following type "
|
||||
, "from a type-checker type to a source-syntax type:"
|
||||
, P.render (pretty Never variable) ]
|
||||
|
||||
|
||||
data AppStructure = List Variable | Tuple [Variable] | Other
|
||||
|
||||
collectApps :: Variable -> IO AppStructure
|
||||
|
|
Loading…
Reference in a new issue