Changeset 2462 for src/Pugs/External.hs

Timestamp:

04/29/05 14:33:31 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3914

Message:

* rewrote position handling and statement reduction logic.
* much better error message -- now with source ranges

Files:

• src/Pugs/External.hs (modified) (2 diffs)

src/Pugs/External.hs

@@ -16 +16 @@
 
 externalize :: String -> Exp -> IO String
-externalize mod (Stmts stmts) = externExternalize backend mod code
+externalize mod stmts = externExternalize backend mod code
     where
     (backend, code)
@@ -23 +23 @@
         | otherwise     = error "multiple inline found"
     things = [ (backend, code)
-             | (Syn "inline" [Val (VStr backend), Val (VStr code)], _) <- stmts
+             | (Syn "inline" [Val (VStr backend), Val (VStr code)]) <- flatten stmts
              ]
-externalize _ _ = error "not statements"
+    flatten (Stmts cur rest) = (cur:flatten rest)
+    flatten exp = [exp]
+
 
 externExternalize "Haskell" = externalizeHaskell