Changeset 3594 for src/Pugs/External
- Timestamp:
- 05/21/05 21:00:53 (4 years ago)
- svk:copy_cache_prev:
- 5170
- Files:
-
- 1 modified
-
src/Pugs/External/Haskell.hs (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/External/Haskell.hs
r2497 r3594 27 27 } 28 28 ] -} 29 ourPackageConfigs :: [a] 29 30 ourPackageConfigs = [] 30 31 … … 71 72 externalizeHaskell mod code = do 72 73 let names = map snd exports 73 symTable <- runQ [d| extern__ = names |] 74 symTable <- runQ [d| 75 extern__ :: [String] 76 extern__ = names 77 |] 74 78 symDecls <- mapM wrap names 75 79 return $ unlines $ … … 99 103 wrap fun = do 100 104 [quoted] <- runQ [d| 105 name :: [Val] -> Eval Val 101 106 name = \[v] -> do 102 107 s <- fromVal v … … 106 111 #endif 107 112 113 munge :: Dec -> String -> Dec 108 114 munge (ValD _ x y) name = ValD (VarP (mkName name)) x y 109 115 munge _ _ = error "impossible"
