git.iko.soy/elk
on master help sign in
Fix silly mistakes in Transform.AddDefaultImports
58175b2Evan Czaplicki
src/Transform/AddDefaultImports.hs+5−4
compare with master
unifiedsplit
@@ -1,6 +1,7 @@
1{-# LANGUAGE FlexibleContexts #-}
1{-# LANGUAGE FlexibleContexts #-}
2module Transform.AddDefaultImports (add) where
2module Transform.AddDefaultImports (add) where
3
3
4+import Prelude hiding (maybe)
4import qualified Data.Map as Map
5import qualified Data.Map as Map
5import qualified Data.Set as Set
6import qualified Data.Set as Set
6
7
@@ -20,7 +21,7 @@ type ImportDict =
20
21
21defaultImports :: ImportDict
22defaultImports :: ImportDict
22defaultImports =
23defaultImports =
23− Map.fromList $ map (\name -> (name, ([], Var.openListing))) $
24+ Map.fromList
24 [ ["Basics"] ==> ([], Var.openListing)
25 [ ["Basics"] ==> ([], Var.openListing)
25 , ["Maybe"] ==> ([], Var.Listing [maybe] False)
26 , ["Maybe"] ==> ([], Var.Listing [maybe] False)
26 , ["Result"] ==> ([], Var.Listing [result] False)
27 , ["Result"] ==> ([], Var.Listing [result] False)
@@ -28,17 +29,17 @@ defaultImports =
28 ]
29 ]
29
30
30
31
31−maybe : [Var.Value]
32+maybe :: Var.Value
32maybe =
33maybe =
33 Var.ADT "Maybe" Var.openListing
34 Var.ADT "Maybe" Var.openListing
34
35
35
36
36−result : Var.Value
37+result :: Var.Value
37result =
38result =
38 Var.ADT "Result" Var.openListing
39 Var.ADT "Result" Var.openListing
39
40
40
41
41−signal : Var.Value
42+signal :: Var.Value
42signal =
43signal =
43 Var.ADT "Signal" (Var.Listing [] False)
44 Var.ADT "Signal" (Var.Listing [] False)
44
45