modified movies.hs to Movies.hs

iu-parfunc · Sep 27, 2023 · d8e6d3f · d8e6d3f
1 parent 881901a
commit d8e6d3f
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 2 deletions.
diff --git a/gibbon-compiler/examples/movie-micro-service/Basics.hs b/gibbon-compiler/examples/movie-micro-service/Basics.hs
@@ -4,7 +4,7 @@ module Basics where
 import Gibbon.Prelude
 import Gibbon.PList
 import Gibbon.Vector
-import Gibbon.Maybe
+import Gibbon.Prim
 
 type Text   = Vector Char
 

diff --git a/gibbon-compiler/examples/movie-micro-service/movies.hs b/gibbon-compiler/examples/movie-micro-service/movies.hs
@@ -3,7 +3,7 @@ module Movies where
 import Gibbon.Prelude
 import Gibbon.PList
 import Gibbon.Vector
-import Gibbon.Maybe
+import Gibbon.Prim
 import Basics
 -- 
 type Text = Vector Char 

diff --git a/gibbon-compiler/examples/movie-micro-service/sth.hs b/gibbon-compiler/examples/movie-micro-service/sth.hs
@@ -0,0 +1,9 @@
+import Gibbon.Prelude
+import Gibbon.PList
+import Gibbon.Vector
+-- import Gibbon.Prim
+gibbon_main = let 
+    -- a = fromMaybe 10 (Nothing)
+    a = 10
+    _ = printint a
+    in ()
diff --git a/gibbon-compiler/src/Gibbon/HaskellFrontend.hs b/gibbon-compiler/src/Gibbon/HaskellFrontend.hs
@@ -472,6 +472,7 @@ stdlibImportPath mod_name = do
     modNameToFilename "Gibbon.List" = "Gibbon" </> "List.hs"
     modNameToFilename "Gibbon.PList" = "Gibbon" </> "PList.hs"
     modNameToFilename "Gibbon.ByteString" = "Gibbon" </> "ByteString.hs"
+    modNameToFilename "Gibbon.Prim" = "Gibbon" </> "Prim.hs"
     modNameToFilename oth = error $ "Unknown module: " ++ oth
 
 modImportPath :: ModuleName a -> String -> IO FilePath