shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Minor fix.

--- a/src/MicroHs/TypeCheck.hs

+++ b/src/MicroHs/TypeCheck.hs

@@ -1490,7 +1490,7 @@

     LInt _  -> lit (tConI loc "Primitives.Int")

     LDouble _ -> lit (tConI loc "Primitives.Double")

     LChar _ -> lit (tConI loc "Primitives.Char")

-    LStr _  -> lit (tApp (tConI loc "Data.List.[]") (tConI loc "Primitives.Char"))

+    LStr _  -> lit (tApp (tList loc) (tConI loc "Primitives.Char"))

     LPrim _ -> newUVar T.>>= lit  -- pretend it is anything

     LForImp _ -> impossible

-- 

⑨