git.iko.soy/elk
on master help sign in
Update for new Module AST
a88fbceEvan Czaplicki
compiler/Build/Interface.hs+2−2
compare with master
unifiedsplit
@@ -7,7 +7,7 @@ import qualified Data.Binary as Binary
7import qualified Build.Print as Print
7import qualified Build.Print as Print
8import qualified Elm.Internal.Version as Version
8import qualified Elm.Internal.Version as Version
9import System.Directory (doesFileExist)
9import System.Directory (doesFileExist)
10−import AST.Module
10+import AST.Module as Module
11
11
12load :: Binary.Binary a => FilePath -> IO a
12load :: Binary.Binary a => FilePath -> IO a
13load filePath =
13load filePath =
@@ -28,7 +28,7 @@ load filePath =
28 , " Please remove the file and try again."
28 , " Please remove the file and try again."
29 ]
29 ]
30
30
31−isValid :: FilePath -> (String, ModuleInterface) -> Either String (String, ModuleInterface)
31+isValid :: FilePath -> (String, Module.Interface) -> Either String (String, Module.Interface)
32isValid filePath (name, interface) =
32isValid filePath (name, interface) =
33 let version = iVersion interface in
33 let version = iVersion interface in
34 if version == Version.elmVersion
34 if version == Version.elmVersion