Changeset 16349 for third-party

Show
Ignore:
Timestamp:
05/17/07 23:21:39 (18 months ago)
Author:
audreyt
Message:

* Go back to Inline style, as now Prelude compilation seems to be working.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • third-party/HsSyck/Data/Yaml/Syck.hsc

    r16346 r16349  
    188188emitNode freeze e n | ESeq sq <- n_elem n = do 
    189189    withTag n (Ptr "array"##) $ \tag -> 
    190 --      syck_emit_seq e tag seqInline 
    191         syck_emit_seq e tag seqNone 
     190        syck_emit_seq e tag seqInline 
     191--      syck_emit_seq e tag seqNone 
    192192    mapM_ (syck_emit_item e) =<< mapM freeze sq 
    193193    syck_emit_end e 
    … …  
    195195emitNode freeze e n | EMap m <- n_elem n = do 
    196196    withTag n (Ptr "map"##) $ \tag -> 
    197 --      syck_emit_map e tag mapInline 
    198         syck_emit_map e tag mapNone 
     197        syck_emit_map e tag mapInline 
     198--      syck_emit_map e tag mapNone 
    199199    flip mapM_ m (\(k,v) -> do 
    200200        syck_emit_item e =<< freeze k