diff options
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -1020,14 +1020,6 @@ parseKeySpecs = map $ \specfile -> do | |||
1020 | let cmd = (drop 1 . reverse . drop 1) bdmcb | 1020 | let cmd = (drop 1 . reverse . drop 1) bdmcb |
1021 | Just (spec,file,cmd) | 1021 | Just (spec,file,cmd) |
1022 | 1022 | ||
1023 | buildStreamInfo :: KeyFilter -> FileType -> StreamInfo | ||
1024 | buildStreamInfo rtyp ftyp = StreamInfo { typ = ftyp | ||
1025 | , fill = rtyp | ||
1026 | , spill = KF_All | ||
1027 | , access = AutoAccess | ||
1028 | , initializer =NoCreate | ||
1029 | , transforms = [] } | ||
1030 | |||
1031 | data Export = Export | NoExport deriving Eq | 1023 | data Export = Export | NoExport deriving Eq |
1032 | data Import = Import | NoImport deriving Eq | 1024 | data Import = Import | NoImport deriving Eq |
1033 | data Secret = Secret | NoSecret deriving Eq | 1025 | data Secret = Secret | NoSecret deriving Eq |