@@ -1,6 +1,7 @@
11{-# LANGUAGE FlexibleContexts #-}
22module Transform.AddDefaultImports (add) where
33
4+import Prelude hiding (maybe)
45import qualified Data.Map as Map
56import qualified Data.Set as Set
67
@@ -20,7 +21,7 @@ type ImportDict =
2021
2122defaultImports :: ImportDict
2223defaultImports =
23− Map.fromList $ map (\name -> (name, ([], Var.openListing))) $
24+ Map.fromList
2425 [ ["Basics"] ==> ([], Var.openListing)
2526 , ["Maybe"] ==> ([], Var.Listing [maybe] False)
2627 , ["Result"] ==> ([], Var.Listing [result] False)
@@ -28,17 +29,17 @@ defaultImports =
2829 ]
2930
3031
31−maybe : [Var.Value]
32+maybe :: Var.Value
3233maybe =
3334 Var.ADT "Maybe" Var.openListing
3435
3536
36−result : Var.Value
37+result :: Var.Value
3738result =
3839 Var.ADT "Result" Var.openListing
3940
4041
41−signal : Var.Value
42+signal :: Var.Value
4243signal =
4344 Var.ADT "Signal" (Var.Listing [] False)
4445